Path::Class::Dir の recurse メソッドを使っていて、なぜか走査されないディレクトリがある。具体的には、サブディレクトリとして 0/, 1/, 2/, ..., e/, f/ があるのだが、0/ と 1/ と f/ の下のファイルが走査されない。試しに children で一覧してみると…

最近、一時的に必要な変数のスコープを狭めるために do ブロックを使うことが多い。たとえば、次のようなスクリプトを考える。 my ($x, $y) = (3, 5); my $diff = $x - $y; my $first = $diff ** 2; my $second = abs($x ** 2 - $y ** 2); print "first = $f…

必須の引数とオプショナルな引数の順序に悩む修行 - 昨日知ったことにて、オプショナルな引数を必須の引数の前に書くメソッドの定義はどうだろう、ということを書いた。 my $stuff = new Stuff(code => q/353/, flag => 1, $string); そういう例はみたことが…

twitter でつぶやいた NOKED をサルベージ。2009/12/29 〜 2010/03/12 分。 あ、さーっと assert ぼやっと小火 (ボヤ) 父兄が婦警 四方に至宝 ... 両手に花を越える状況 上京の状況 八世紀の発生器 尊大は損だい そーっと sort ... 壊れやすいデータだから気…