ディレクトリ配下のファイル一覧(Windows用)

　Windowsの場合File::Findモジュールではたどれない場合があります。代わりにWin32::Unicode::Dirモジュールを使うとWindowsでもディレクトリを再帰的にたどることができます。

use strict;
use warnings;
use Win32::Unicode::Console;
use Win32::Unicode::Dir;

my $dir = 'c:\user1'; # 対象ディレクトリ名(相対パスでもOKです)

findW sub {
    my $file = $_;
    my $path = $Win32::Unicode::Dir::name;
    printfW "%s(%s)\n", $file, $path;
}, $dir;

ディレクトリ配下のファイル一覧(Windows用)

関連項目