金時豆 2 cup

豆

暮れにやって以来、久々に豆を煮た。甘さ控えめに仕上げた。

2010-01-14

AnyEvent + Coro での並行ダウンローダの習作

Perl

AnyEvent と Coro を使って、WEB から非同期に並行ダウンロードするプログラムの習作を作ってみた。http://kaede.to/~canada/doc/wiser-clawer-sample-using-coroをだいぶ参考にさせてもらっている。紹介されている非同期クローラはとてもいいのだが、自分が…

2010-01-13

AnyEvent my $w; $w = ... と書くわけ

Perl

次のプログラムでは、$w2 のスコープはブロックの中だけなので、ブロックを抜けたときに undef され、timer watcher $w2 はキャンセルされる。 use strict; use warnings; use AnyEvent; my $cv = AnyEvent->condvar; my $w3 = AnyEvent->timer( after => 3,…

2010-01-13

AnyEvent watcher のキャンセル実験

Perl

AnyEvent の watcher をキャンセルする実験。今から 2 秒後の発火を待つ timer watcher を、今から 1 秒後にキャンセルしてみる。 use strict; use warnings; use AnyEvent; my $cv = AnyEvent->condvar; my $w3 = AnyEvent->timer( after => 3, cb => sub {…

2010-01-09

Coro::Channel を使った回文素数ジェネレータを作ってみる修行

Perl

Coro::Intro を読んで Coro::Channel について知ったので、これを使ったプログラムを書いてみることにした。ネタとしていいものが思い浮かばなかったので、回文素数 (回文数である素数) を生成するジェネレータを無駄に作ってみた。

2010-01-08

Coro::State を使って双子の素数ジェネレータを作ってみる修行

Perl

大量の URL からファイルを持ってきて解析するプログラムを作っている。プロセスを並行して走らせ、それぞれが LWP を使ってファイルをダウンロードしている。で、これは Coro + AnyEvent を使うと速くなるよ、という噂を聞いたので Coro + AnyEvent を勉強…

2010-01-06

if と elsif の条件節の中の変数のスコープ

Perl

use strict; use warnings; my $x = 2; my $y = 4; # (1) line 5 if ((my $y = 2) == $x) { # (2) line 6 my $y = 5; # (3) line 7 print "x=$x, y=$y\n"; } elsif ((my $y = 3) == $x) { # (4) line 10 print "x=$x, y=$y\n"; } else { print "x=$x, y=$y\n…

2010-01-06

テキストファイルの n 行目から m 行抜き出すワンライナー

テキストファイルの n 行目から m 行抜き出すワンライナー。次のは 5000 行目から 1011 行(コメントを受けて修正)抜き出すもの。 $ n=5000;m=10;e=$(($n+$m));sed -n -e $n,${e}p -e ${e}q ファイル名私が sed を使うのはこれくらいが限度で、とても sed 遣…

2010-01-05

CPAN でインストールしたもののリストを表示するワンライナー

Perl

CPAN でインストールしたもののリストを表示するワンライナー。 $ perl -MExtUtils::Installed -e '$i=ExtUtils::Installed->new;print "$_ ".$i->version($_)."\n" for $i->modules;' 参考年越しそばと初詣は絶対に欠かせない: CPANでインストールしたモジ…

2010-01-05

qw の中身の先頭や末尾がホワイトスペースだった場合、先頭や末尾に空文字列が入っているとみなされるわけではない

Perl

$ perl -e 'print "[$_]\n" foreach qw/ a b c /;' [a] [b] [c] であって、 $ perl -e 'print "[$_]\n" foreach qw/ a b c /;' [] [a] [b] [c] [] ではない。ま、当たり前か。

2010-01-05

Perl の標準モジュールかどうかを確認する方法

Perl

あるモジュールが標準モジュールか、いつからか、どのバージョンなのかを調べるには Module::CoreList で。 C:\Users\takeyuki>perl -MModule::CoreList -e "print Module::CoreList->first_release('Module::CoreList');" 5.009002 Module::CoreList 自体が…