たわごと

_ GRANDBERRY MALL

グランべリーモールへ行ってきました。石焼きピビンパを食べたりペットショップをみたり。

_ File::Find

ん、File::Findモジュールですが、&find()を呼び出すことで$_が汚される(findで見つかったファイル名が入る)のです。よって、以下のコードは非常に危険だったりします。

foreach (@dir_list){
	my ($dir) = $_;         # 几帳面にローカル変数にコピーして
	find (\&func() , $dir); # 普通にfindを呼び出しているの・・・だが
};

これ、@dir_listの値がめちゃめちゃに壊されてしまうのですよ。原因不明だったバグの原因がわかってほっと一息です。

_ [♪] Smoke gets in Your Eyes / The Platters