2007-11-02から1日間の記事一覧
File::Findでやってたけど、 こっちも良さげーーー #! /usr/bin/perl use strict; use warnings; use Path::Class; my $dir = shift or die "usage : $0 <dir>\n"; dir($dir)->recurse( callback => sub { my $file = shift; return unless -f $file; my $f = $fi</dir>…