Jojoxx.net logotyp

 

 

Användare ikonAnvändare
Besökare just nu: 95
Snabblänkar ikonSnabblänkar
JavaScript-arkivet
Perl
FAQ

Sök på Jojoxx.net


FAQ: Perl / CGI

Hur söker man efter alla filer av en viss typ i en katalog med underkataloger?


use File::Find;
find (\&tree, "/path");
sub tree {
    return unless -f $File::Find::name;
    my $filename = lc $_;
    return unless $filename=~ m/\.(jpg|gif)$/i;
    print "$File::Find::name\n";
}

,