Jak odróżnić plik z katalogu w Perlu?

Question

Próbuję przejść przez wszystkie podkatalogi bieżącego katalogu w Perlu i pobrać dane z tych plików. Używam grep, aby uzyskać listę wszystkich plików i folderów w danym katalogu, ale nie wiem, która z zwróconych wartości jest nazwą folderu i która jest plikiem bez rozszerzenia pliku.

Jak mogę stwierdzić różnicę?

Answer 1

Można użyć -d operatora plik testowy, by sprawdzić, czy coś jest katalogiem. Oto niektóre z powszechnie użytecznych operatorów testowych plik

 
    -e File exists. 
    -z File has zero size (is empty). 
    -s File has nonzero size (returns size in bytes). 
    -f File is a plain file. 
    -d File is a directory. 
    -l File is a symbolic link. 

Zobacz perlfunc manual page for more

także spróbować użyć File::Find które można rekursja katalogi dla Ciebie. Oto przykład, który szuka katalogów ....

sub wanted { 
    if (-d) { 
     print $File::Find::name." is a directory\n"; 
    } 
} 

find(\&wanted, $mydir); 

Answer 2

print "$file is a directory\n" if (-d $file); 

Answer 3

 
my $dh = opendir("."); 
my @entries = grep !/^\.\.?$/, readdir($dh); 
closedir $dh; 

foreach my $entry (@entries) { 
    if(-f $entry) { 
     # $entry is a file 
    } elsif (-d $entry) { 
     # $entry is a directory 
    } 
} 

Answer 4

byłoby łatwiejsze w użyciu File::Find.

Answer 5

Spójrz na operatorów -X:

perldoc -f -X 

Do przechodzenia katalogów wykorzystanie pliku :: Znajdź, lub, jeśli nie jesteś masochistą, używać mój plik :: Następny moduł, który sprawia, że ​​iterator dla Ty i nie potrzebujesz szalonych callbacków. W rzeczywistości można mieć pliki zwracane przez plik :: Next ONLY i ignorować katalogi.

use File::Next; 

my $iterator = File::Next::files('/tmp'); 

while (defined (my $file = $iterator->())) { 
    print $file, "\n"; 
} 

# Prints... 
/tmp/foo.txt 
/tmp/bar.pl 
/tmp/baz/1 
/tmp/baz/2.txt 
/tmp/baz/wango/tango/purple.txt 

To na http://metacpan.org/pod/File::Next

Answer 6

my @files = grep { -f } @all; 
my @dirs = grep { -d } @all;