今更なんですがねー。 use strict; use File::Find; my ($target_directory) = @ARGV; my $filter = sub{ /\.(?:gif|jpe?g|png)/ or return; printf qq{<img src="%s/%s" alt="%s">\n},$File::Find::dir,$_,$_; }; find($filter,$target_directory || '.');; 対象となるディレクトリ以…

pythonに興味が移った。 「インデントでブロックを表す」って用は箇条書きみたいに書けるってことで、これ最強なんじゃない?? # a == b のときは OK そうでないときは BAD を表示 if a == b: print "OK" else: print "BAD" # 関数tt とは、test を出力する d…

my @CSV = ( '1,kame,34', '2,usagi,120', '3,panda,80', ); # 3カラム目でソート map {$_->[0]} sort {$a->[3] <=> $b->[3]} map {[split ',',$_]} @CSV; CSVのデータ内に改行が入ってたらどうすんねんとか、 ダブルクォートで囲まれた文字列内にコンマ入っ…

このモジュールをuseすると使える関数の定義は、↓のようになってるんだけど、 sub sum (@) { reduce { $a + $b } @_ } sub min (@) { reduce { $a < $b ? $a : $b } @_ } sub max (@) { reduce { $a > $b ? $a : $b } @_ } sub minstr (@) { reduce { $a lt …