2007-10-29から1日間の記事一覧
今更なんですがねー。 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 || '.');; 対象となるディレクトリ以…