[LUGOS] Perl implementacija finda

Matija Grabnar matija.grabnar at arnes.si
Wed Dec 5 13:35:52 CET 2001


> A ima kdo kako idejo kako narediti znotraj perla nekaj takega
> kot unix find?
> @file = findFile( "lala.txt") Bo v @file dalo vse mozne poti do lala.txt.

Nekaj takega?

use File::Find;
find(\&wanted,'/');
sub wanted {
    push(@file,$File::Find::dir) if /lala\.txt/;
}



More information about the lugos-list mailing list