perl - Perl の -f コマンドがシステムで機能しない

Question

Windows 7 を使用しています。ディレクトリを開いてディレクトリ内のすべてのファイル名を出力しようとしていますが、システムで -f コマンドが機能しません。プログラムは次のとおりです。

enter code here

$directory = '\Users';
opendir(DIR, $directory) or die $!;
while ($file = readdir(DIR)){
    if(-f $file){
        print "$file\n";
    }
}
closedir(DIR);

誰が何が悪いのか教えてもらえますか? 前もって感謝します。

Answer 1

ファイルへのパスがありません。

次のようになります。

if(-f "$directory/$file") {

Answer 2

フルパス名でテストする必要があります。$fileファイル名のみが含まれます。

if ( -f "$directory\\$file" ){
    print "$file\n";
}