Opened by Perl_Flo at 2013-01-02 13:10
Also mein aktueller Code mit grep sieht folgendermaßen aus:
Lieder sucht dieser nicht rekursiv und die Option -r funktioniert unter Perl nicht.
Ja ich benutze diese Modul Find, leider habe ich den Code zu dieser version gelöscht.
Last edited: 2013-01-02 13:35:56 +0100 (CET)
Code: (dl
)
1
2
3
4
5
my $start_dir="Z:/test";
opendir (FOLDER, $start_dir);
my @files = readdir FOLDER;
close FOLDER;
@dir_entries = grep{ $_=~ m/$string/i;} @files;
Lieder sucht dieser nicht rekursiv und die Option -r funktioniert unter Perl nicht.
Ja ich benutze diese Modul Find, leider habe ich den Code zu dieser version gelöscht.
Last edited: 2013-01-02 13:35:56 +0100 (CET)