Bonjour

Je veux utiliser le module File::Find. Mais, dans ma fonction wanted, je veux retourner un tableau. Voici comment je procède :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
#!/usr/bin/perl
 
use strict;
use warnings;
use File::Find;
 
no warnings 'File::Find';
 
my @array;
 
find(@array = \&wanted, "/home/gldavid");
 
foreach my $file (@array){
        print $file."\n";
}
 
sub wanted{
        my @tablo;
        if(/MonProg/ && -x $_){
                push(@tablo, $File::Find::name);
        }
        return @tablo;
}
Bon, ça marche bien sauf qu'en retour, au lieu de m'afficher les fichiers, il m'affiche :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
CODE(0x9ec0798)
mmm, il me semble avoir oublié alors un petit détail sur les références...
Merci de votre aide.

@++