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;:&=+$,…

日本語もちゃんと表示したい場合、以下のように定義した。 { 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(…

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

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

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

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

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

行ってきました。 あと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…

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

ハッシュに入ってる値を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というものができたけど、まだ問題があって悩んでいる件 - メメメモモ対応されていました。 taiyoh/Test_mysqld-phpregister_shutdown_function()というものがあったのですね。 PHP: register_shutdown_function - Manu…

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

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

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

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

こちらのページから名前をいただくとよさそう。 http://www.namaejiten.com/h01/name01.html use strict; use warnings; use Mojo::ByteStream 'b'; use Mojo::UserAgent; my $ua = Mojo::UserAgent->new; my $tx = $ua->get('gttp://www.namaejiten.com/h01…

Mail::Address::MobileJp メールアドレスからキャリアを判別するモジュール。 Mail::Address::MobileJp - search.cpan.org HTTP::MobileAgent HTTP_USER_AGENTからキャリアを判別するモジュール。HTTP::MobileAgent - search.cpan.org HTTP::BrowserDetect H…

my $text = 'abcde'; # (1) $text =~ m/(bc)/; warn $1; # -> bc # (2) $text =~ m/(ce)/; my $tmp = $1; warn $tmp; # -> bc # (3) if ( $tmp ) { # do something for $tmp } (1)では、正規表現がマッチするので$1には"bc"が入ります。(2)では、正規表現が…

概要 リモートリポジトリにあるmasterブランチのコミットを取り消す場合を考えます。 手順としては以下のような感じになります。 リモートリポジトリからmasterをpullしておく リモートリポジトリにバックアップとしてmaster_bakブランチを作成する(オプショ…

submitボタンを大体エミュレートしてpost_form_okに値を渡したい時に、以下のようにした。 $t->get_ok('/form'); my $res = $t->tx->res; my $first = $res->dom->find('form')->first; my %values; $first->find('input')->each( sub { my ($e) = @_; if ( …

要するに、同じ名前のフィールドに複数の値を設定する場合は、以下のように配列リファレンスで渡す。 $t->post_form_ok('/', { chkbox => ['1', '2'] });

qpsmtpd qpsmptdとは、perlで書かれたsmtpサーバです。 qpsmtpdユーザーを作成 qpsmtpd用にユーザーを作成します。 # adduser smtpd インストール smtpdユーザにログインして、qpsmtpdで使うモジュールをインストールします。 $ cpanm Net::DNS $ cpanm MIME…