Emacsの基本設定

環境を移動したとき、毎回Emacsの設定を行うのが大変です。 いつも触っているEmacsならガチガチに設定するのですが、移行するのがダルイ場合があります。 また、最低限の設定だけを行いたい場合があります。なので、Emacsを段階的に設定できるようにメモっと…

Teng::Schema::Loaderが遅くなってくる件

Teng::Schema::Loaderは、動的にDBのテーブル情報を読み込んでスキーマ設定を行ってくれるので楽なのですが、テーブルが多くなってきたり、データがたくさんあるテーブルがあったりすると、この解析がとても遅くなってきます。 実際の解析は、DBIx::Inspecto…

Redis.pmでexpireコマンドを実行する

Redis - Perl binding for Redis database - metacpan.orgぱっと見、ドキュメントにもソースにもexpireメソッドみたいなのがないので、 できないのかと思ったけど、できることをツイッターで教えていただけました。@memememomo podには書いてないようですが…

Kansai.pmに行ってきた

Kansai.pmに行って来ました。以下、印象に残っているもの。 ■「Webサービスの作り方」の作り方 本を持っていくのを忘れて、サインがいただけなかったのが残念。 Mojoliciousを使っている人が多かったのが意外だった。 ■Cinnamon ちょうどデプロイツールをな…

MIME-Headerでエンコードした場合、utf8フラグが付いたままになる

Encode.pmを用いてMIMEヘッダ用にエンコードする時、MIME-Headerを指定した場合にutf8フラグが付いたままになる。 use strict; use warnings; use Encode; use Devel::Peek; my $fromname = decode_utf8('メメメモモ <memememomo@gmail.com>'); Dump encode('MIME-Header', $fromna</memememomo@gmail.com>…

Mojo::DOMの&nbsp;の扱い

Mojo::Domでパースすると、&nbsp;がUnicodeのU+00A0(ノーブレークスペース)に変換される。 なのでto_xmlで出力した文字列をUTF-8以外の文字コードでエンコードすると、文字化けを起こしてしまう。以下、再現コード。 use strict; use warnings; use Encode; …

UTF-16に変換する

utf16beかutf16leで指定する。

CPAN関連のサイトやツール

CPAN関連のサイトやツールが色々あってよくわからないのでまとめてみた。 そういえば今ではすっかり「シーパン」と読んでいるが、昔は「くぱぁん」って読んでいた。 Comprehensive Perl Archive Network http://www.cpan.org/CPANサイト。 SearchCPAN http:/…

qudoのワーカーの起動スクリプトについて調べたこと

以下で紹介されているサンプルを元にワーカーの起動スクリプトを作ったので色々調べてみた。 https://github.com/nekokak/qudo/blob/master/sample/init.d/qudo-worker-sample.pl (Qudo::Parallel::Managerというものがあることは最近知った。。。)このスク…

Server::StarterとStarletについて調べたこと

Server::Starter --portオプション Listenするポートを指定する。 (port|host:port) --intervalオプション このオプションで指定された秒数で、再起動したアプリがエラー終了しなければ成功とみなす。 このオプションが短すぎると、エラー終了が検知できない…

正規表現マッチがエラーになる時

以下の場合、正規表現エラーになります。 use strict; use warnings; use utf8; use Encode; my $text = 'test)testetsttest'; my $match = 'test)'; $text =~ s/$match/aaaa/g; $matchの中にある")"が、正規表現の特殊記号として評価されてしまうのでエラー…

Test::Mojoでアップロードテストをする

post_form_okで、fileタイプのカラムは以下のように指定する。 # ファイルの中身をcontentで指定 $t->post_form_ok('/post', { csv => {content => "hogehoge,fugafuga"}, }); # アップロードするファイルパスを指定 $t->post_form_ok('/post', { csv => { f…

Mojoliciousで動的に大きなファイルを配信する

こちらの記事を参考にさせていただきました。 http://perlcode.hateblo.jp/entry/20120321/1332488265 プロセスがずっとreadしつづけている? ダウンロードが完了してうまくいっているように見えたのですが、 プロセスが残り続ける症状が出ました。「strace …

コールバックを、あるクラスのメソッドとして実行する

以下のようにすればできることを知った。 use strict; use warnings; package HogeHoge; sub fugafuga { print "fugafuga\n"; } package main; my $cb; $cb = sub { my $self = shift; print "hogehoge\n"; $self->fugafuga(); }; HogeHoge->$cb;

正規表現でURLをマッチさせる場合、エンコードする

以下のような感じで、エンコードしないとマッチしない。 use strict; use warnings; use utf8; use Encode; binmode STDOUT, ":utf8"; my $text = "テストhttp://example.com/テスト"; my $regex = q{\b(?:https?|shttp)://(?:(?:[-_.!~*'()a-zA-Z0-9;:&=+$,…

Mojoliciousでダンプ

日本語もちゃんと表示したい場合、以下のように定義した。 { package D; sub dump { require Data::Dumper; require Data::Recursive::Encode; my $text = Data::Dumper::Dumper(Data::Recursive::Encode->encode('utf8', $_[1])); die Encode::decode_utf8(…

jqueryでformのsubmitをする

triggerメソッドを使う。 $("form:first").trigger('submit'); jQuery日本語リファレンス

emacs-w3mを使うまでの設定

gcをインストール w3mでgcがないとエラーが出るのであらかじめインストールしておきます。 以下のリンクからソースを取ってきてコンパイルとインストールをします。 Index of /personal/Hans_Boehm/gc/gc_source w3mをインストール 以下のリンクからソースを…

PHPUnitでデータベースありのテストを行うための設定メモ

第8章 データベースのテスト インストール PHPUnitのインストールは以下のコマンドで行う。 # pear config-set auto_discover 1 # pear install pear.phpunit.de/PHPUnitauto_discoverでインストールがうまくいかない場合は。 # pear channel-discover pear.…

Mojo::EventEmitter

emitは「放出する」という単語。 eventをemitだから、イベントを放出するモジュール。 例えば以下のように、イベントに対してコールバックを設定して使用するようなモジュールを作成できる。 my $tiger = Cat->new; $tiger->on( roar => sub { my ($tiger, $…

YAPCに行ってきた&LTソンで発表してきた

YAPCに行って来ました。 ブログ書くまでがYAPCということなのと、 LINEのぬいぐるみが欲しいので、ブログを書きます。 LTソン 「YAPCでLTやってみたいけど、ステージに上がって発表するとかハードル高杉」 という自分にとって、夢のような企画でした。 とい…

Kyoto.pm Tech Talks 02に行ってきました

行ってきました。 あとLTもさせていただきました。 CPANモジュールをPHPに移植してみた話 from memememomo

最近入れた拡張など

chrome Chrome ウェブストア - AutoPager Chrome Chrome ウェブストア - Session Manager emacs zencoding zencoding + emacs - tototoshiの日記 perldoc-m EmacsでPerl開発する上で必須な設定 #3 - perldoc-m - antipop perldoc [http://d.hatena.ne.jp/IMA…

emacsの記号

いつも忘れるのでメモ。 M Metaキー。ESCかCtrl+[ C コントロールキー。Ctrl 参考 Emacs

ハッシュをparamメソッドがあるオブジェクトに変換する

ハッシュに入ってる値をFormValidator::Liteでバリデーションしたい時とかに、 CGI.pmに変換してやってます。 use FormValidator::Lite; use CGI; my $hash = {name => 'aaaa'}; my $req = CGI->new($hash); my $validator = FormValidator::Lite->new($req)…

「Test_mysqldというものができたけど、まだ問題があって悩んでいる件」が解決されてた

php

下記の件で悩んでたもの。 Test_mysqldというものができたけど、まだ問題があって悩んでいる件 - メメメモモ対応されていました。 taiyoh/Test_mysqld-phpregister_shutdown_function()というものがあったのですね。 PHP: register_shutdown_function - Manu…

perlのデコードとエンコードについて(1)

デコードする ある文字列が何文字あるのかを求めるプログラムを書くとします。 perlにはlengthという関数があるので、これを使って以下の様なプログラムを書きました。 # UTF-8で保存したファイル use strict; use warnings; my $str = 'ハローワールド'; my…

DKIMの導入手順

公開鍵と秘密鍵を作成 DKIMで使用する公開鍵と秘密鍵は、OpenDKIMというツールを使って作成します。 debianでは、以下の様なコマンドでOpenDKIMをインストール。 $ sudo apt-get install opendkimOpenDKIMをインストールすると、dkim-genkeyというコマンドが…

カーソルの縦方向固定

なんかたまにカーソルが変な動きするなぁと思ってたら、次のコマンドを打ってしまっていたらしい。 C-x C-n このコマンドを打つと、カーソルを上下に動かすたびに、自動的に◯◯カラム目の文字にカーソルが行くようになる。 次の行に行くのが「C-n」だから、た…

make_database_yaml.plで、AUTO_INCREMENTの指定を外す

以下のようにして、単純にsedで取り除くだけ。 make_database_yaml.pl -d 'dbi:mysql:dbname' -u root -p xxx | sed -e "s/AUTO_INCREMENT=\d+//g;"