Discussion :

[GLDavid]

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.

@++

[djibril]

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 :

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

[GLDavid]

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

@++

[djibril]

[lami20j]

Voici avec File::Find comment tu pouvais faire

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

[GLDavid]

Impeccable ! Merci lami20j !!!

@++