はじめての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 件のコメント:
コメントを投稿