08/03/14 23:25:19
>>125
File::Find の find では pwd が変りますが、
$File::Find::name で得られるのはこの場合は $dir からのパス。
use Cwd ;
して if 文の中に
print getcwd ；
して確認してみそ。
簡単な解決方法は、$dir にゼッタイパスを突っ込め。
それから perldoc File::Find くらいしろ。
08/03/14 23:25:19
>>125
File::Find の find では pwd が変りますが、
$File::Find::name で得られるのはこの場合は $dir からのパス。
use Cwd ;
して if 文の中に
print getcwd ；
して確認してみそ。
簡単な解決方法は、$dir にゼッタイパスを突っ込め。
それから perldoc File::Find くらいしろ。