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

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

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の中にある")"が、正規表現の特殊記号として評価されてしまうのでエラー…

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

こちらの記事を参考にさせていただきました。 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;

以下のような感じで、エンコードしないとマッチしない。 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;:&=+$,…