Thread Unterverzeichnisse prüfen auf Dateien (3 answers)
Opened by leissi at 2006-01-18 11:43

format_c
 2006-01-18 13:09
#62022 #62022
User since
2003-08-04
1706 articles
HausmeisterIn
[Homepage] [default_avatar]
Ich muss zugeben man muss mal gesehen haben wie das mit File::Find und den Callbacks so läuft. Hab mich anfangs auch etwas schwer getan.
Hier mal ein kleines Beispiel.
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use File::Find;

find(\&und_was_nu,'~/','/usr/bin');

sub und_was_nu {
    print "Datei: $File::Find::name\n"
    print "\tVerzeichnis: $File::Find::dir\n"
    print "\tDateiname: $_\n";

    return if -d $File::Find::name;#skip directories
    return unless $_ =~ m/\.mp3$/i;#only mp3 Files
    #Some Stuff
    
}


HTH

Gruß Alex\n\n

<!--EDIT|format_c|1137582658-->

View full thread Unterverzeichnisse prüfen auf Dateien