Dateien rekursiv suchen - #163700 (Allgemeines zu Perl)

GwenDragon

2012-11-28 17:58

User since
2005-01-17
14815 Artikel
Admin1

Geht auch kürzer, weil es reicht $_ zu prüfen.

Code (perl): (dl )

find(sub { push @files, $File::Find::name if /\.zip$/ }, $path);

oder

Code (perl): (dl )

find(sub { /\.zip$/ && push @files, $File::Find::name }, $path);

die Drachin Gwen