Rechercher un fichier en Perl

Imprimer

Le module File::Find permet de rechercher des fichiers en fonction de critères.

use File::Find;

sub wanted {
    my $file = @_;
    my $path_file = $Find::File::name;
    print "$file $path_file\n";
}

find(\&wanted, ".");