Discussion :

[Jasmine80]

Bonjour,

J'ai un répertoire contenant plusieurs sous-répertoires, chacun d'eux contenant plusieurs fichiers. J'aimerais lister chaque sous-répertoire ainsi que le nombre de fichiers qu'il contient. Je ne sais pas quelles fonctions utiliser.

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
#!/usr/local/bin/perl
 
use strict;
 
 
my $Repertoire = 'P:/Theorie/PCR_Bact_Hybridation/Fichiers_FASTA_74_79';
my $pRep;
opendir ($pRep,$Repertoire) or die ("IMPOSSIBLE D'OUVRIR $pRep !!!!\n");
my @Rep_liste = readdir($pRep);	# liste des sous répertoires
closedir ($pRep);
 
# pour chaque sous répertoire
foreach my $S_Rep (@Rep_liste)
{
        my $pS_Rep;
        my $S_Repertoire = 'P:/Theorie/PCR_Bact_Hybridation/Fichiers_FASTA_74_79/'.$pS_Rep;
        opendir ($pS_Rep,$S_Repertoire) or die ("IMPOSSIBLE D'OUVRIR $S_Rep !!!!\n");
        my @S_Rep_liste = readdir($pS_Rep);	# liste des fichiers du sous répertoire
        closedir ($pS_Rep);
 
        print "Repertoire : $S_Rep\t". @S_Rep_liste." fichiers\n";
        #map{print $_."\n";}@S_Rep_liste;
}

Merci beaucoup,


Jasmine,

[Jedai]

Un truc comme :

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
#!/usr/bin/perl
use strict; use warnings;
 
my $path = shift;
 
opendir my($dir), $path
  or die "Can't open $path : $!\n";
 
while( my $filename = readdir $dir ) {
  next if $filename =~  m/^\.\.?$/;
 
  my $subpath = "$path/$filename";
  if( -d $subpath ) {
    opendir my($subdir), $subpath
      or die "Can't open $subpath : $!\n";
    my $count = () = readdir $subdir;
    print "$filename : ", $count - 2, " files\n";
  }
}
 
closedir $dir;
 
__END__

--
Jedaï

[Jasmine80]

Merci, cela fonctionne très bien.
J'aimerais savoir à quoi servent ces lignes?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

next if $filename =~  m/^\.\.?$/;

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print "$filename : ", $count - 2, " files\n";

Est-ce dû à des fichiers cachés à soustraire du compte?


Merci beaucoup,


Jasmine,

[Jedai]

Oui, parce qu'un répertoire contient toujours les pseudo-répertoires "." (le répertoire lui-même) et ".." (remonter d'un niveau). (sauf la racine bien sûr...)

Peut-être ceci serait-il préférable :

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
#!/usr/bin/perl
use strict; use warnings;
 
my $path = shift;
 
opendir my($dir), $path
  or die "Can't open $path : $!\n";
 
while( my $filename = readdir $dir ) {
  next if $filename =~  m/^\.\.?$/;
 
  my $subpath = "$path/$filename";
  if( -d $subpath ) {
    opendir my($subdir), $subpath
      or die "Can't open $subpath : $!\n";
    my $count = grep {not m/^\.\.?$/} readdir $subdir;
    print "$filename : ", $count, " files\n";
  }
}
 
closedir $dir;
 
__END__

--
Jedaï

[Jasmine80]

Merci pour ces explications, je peux clore le sujet.


Bonne journée,



Jasmine,