Bonjour,

Je suis plutôt très débutant en Perl et je deviens fou ! J'ai écrit ce petit bout de script qui, je pensais, devait me renvoyer les fichiers contenus dans les sous-répertoires d'un répertoire courant... Mais ça ne marche pas : il ne m'affiche que la liste des répertoires contenus dans le répertoire courant et apparemment n'entre jamais dedans et ne fait pas la liste des fichiers... Si quelqu'un a une suggestion, je suis preneur

Hugo


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
26
27
28
29
30
31
32
33
34
35
36
37
#!/usr/bin/perl -w
 
use strict;
use warnings;
 
my $f = undef;
my $d = undef;
my @liste_f = undef;
 
opendir Rl, '.' or die "M";
my @liste_d = readdir(Rl);
closedir Rl;
foreach $d (@liste_d)
           {
           if(-d $d)
              {
              print $d."\n";
              if($d ne  '.' and $d ne '..')
                {
                opendir Rf, $d or die "N";
                @liste_f = readdir(Rf);
                foreach $f (@liste_f)
                    {
                    if(-f $f)
                      {
                      print $f;
                      }
                    }
                 closedir(Rf);
                 }
               }
           else
              {
              print "\n";
              }
 
        }