File::Findモジュールの例外処理

質問

サーバー内の入り組んだ階層の中にある全てのhtmlファイルをEUCコードに一括
変換処理したいと考えています。
但し、あるひとつのディレクトリ内とそのディレクト以下の階層にあるhtmlファイルは
処理したくありません。

require "jcode.pl";
use File::Find;
find(\&fileProc, './public_html');

sub fileProc {
my $fname = $_;
return unless -f $_;

#### ここに例外処理を書けばいいと思うのですが・・・

return unless /\.html$/;
open IN, $fname;
open TMP, ">$fname.temptemp"; # 存在しないファイル名
while (<IN>) {
&jcode'convert(*_,'euc');
print TMP;
}
close IN;
close TMP;

rename "$fname.temptemp", $fname
or warn "cannot rename $fname because $! \n";
}
どう書けばいいのかよろしくご教授ください。

回答No.1

kumoz · ベストアンサー

変数 $File::Find::name には、ディレクトリ名付きのファイル名がセットされます。
ある１つのディレクトリ以下は除外したいということですので、次のような感じの
行を入れるといいのではないかと思います。

return if $File::Find::name =~ m|/skip_dir/|;

お礼

上手くいきました。
ありがとうございました。