[LUGOS] Perl implementacija finda

[Matija Grabnar]

> 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/;
}