2011年10月29日土曜日

Path::Classを使って、ディレクトリ以下のHTMLファイル読み込み。


このエントリーをはてなブックマークに追加


はじめてのPath::Class
slurpがあるとはー。



my $dir = dir($dir_path);
my @file_paths;
$dir->recurse(
callback => sub {
my $entry = shift;
return if $entry->is_dir;
return if $entry !~ /\.html\z/;
push @file_paths, $entry->absolute;
}
);

for my $path (@$paths) {
my $html_data = Encode::decode('utf-8', $path->slurp);
}





0 件のコメント:

コメントを投稿