[File::Find] Renvoyer un tablo

Version imprimable

Bonjour

Je veux utiliser le module File::Find. Mais, dans ma fonction wanted, je veux retourner un tableau. Voici comment je procède :
Code:

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:

1 2 CODE(0x9ec0798)
mmm, il me semble avoir oublié alors un petit détail sur les références...
Merci de votre aide.

@++

ah, c'est marrant car j'ai jeté un coup d'oeil sur ce module y a pas longtemps, mais je ne l'ai jamais utilisé.
Sinon pour lister les fichiers, je te fais part de ma procédure passe partout.

Donc ton script ressemblera à ça si tu le souhaites :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!/usr/bin/perl
use strict;
use warnings;
 
my @array = &lister_fichiers("/home/gldavid");
 
foreach my $file (@array){
        print $file."\n";
}
 
sub lister_fichiers {
  my $repertoire = shift;
  my @fichiers=();
  opendir (REP, $repertoire) || die "impossible d'ouvrir le repertoire $repertoire";
  my @file_rep = grep { !/^\.\.?$/ } readdir(REP);
  closedir (REP);
  foreach my $nom (@file_rep) {
    if ( -f "$repertoire/$nom") {
      push (@fichiers, "$repertoire/$nom");  
    }elsif ( -d "$repertoire/$nom") {
      push (@fichiers, &lister_fichiers("$repertoire/$nom"));
    }
  }
return @fichiers;
}

16/03/2007, 17h24
GLDavid

Mouarf ! Comme quoi les grands esprits se rencontrent :mrgreen:
Ok, Djib', je prend ta fonction ;)
Merci à toi

@++
16/03/2007, 17h32
djibril

:yaisse2: :mrgreen:

Voici avec File::Find comment tu pouvais faire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use strict;use warnings;
use File::Find;
no warnings 'File::Find';
 
my @tablo;
 
find(\&wanted, "/home/lami20j/bin");
 
foreach my $file (@tablo){
  print $file."\n";
}
 
sub wanted{
  if( -x $_ ){# les fichiers executables
    push @tablo, $File::Find::name;
  }
}

17/03/2007, 10h31
GLDavid

Impeccable ! Merci lami20j !!!

@++