Discussion :

[zoé78]

bonjour,

je débute en perl,

je cherche a faire un petit script en perl qui compte le nombre de ligne de tous les fichiers
qui se trouve dans son répertoire ainsi que les sous répertoires.

j'ai lu des tutoiaux pour débuter, puis je me suis orienté sur 2 scripts,
-un qui comptait le nombre de lignes d'un fichier
-et un autre qui se déplace de facon récurssive dans un répertoire et sous répertoire pour
compter le nombre de fichier.


j'ai éssayer de combiner les deux mais ca ne fonctionne pas.


quelqu'un a une petite idée??
merci d'avance.

mon script final c'est ca:

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
#!/usr/bin/perl
use strict;use warnings;
use File::Find;
$NumLigne=0;
my $n;
 
 
sub recherche {
 if (-f){++$n 
       if then $File::Find::name =~ /\.cpp/;
          READ: while(<>)
           { 
           $NumLigne++;
           }
 
}
}
 
find(\&recherche,"/chemin/vers/repertoire");
print "Le nombre de lignes est : $NumLigne\n";

[zoé78]

personne sait??????


c'est au niveau du while(<>) il faut qu'il prenne en compte le fichier qu'il vient de compter précédement: File::Find::name


j'ai essayé plein de truc mais de lui faire prendre en compte le nom de fichier dans le while.

quelqu'un pourrait me donner un petit indice????

[djibril]

Voici un programme pouvant faire ce que tu 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
#!/usr/bin/perl
use strict;
use warnings;
 
my $repertoire   = "/TON/REPERTOIRE";
foreach my $fichier ( lister_fichiers($repertoire) ) {
  print "Lecture fichier $fichier\n";
  open my $fh, '<', $fichier or die("Impossible de lire le fichier : $fichier\n");
  my $nombre_ligne = 0;
  while ( <$fh>) { $nombre_ligne++; }
  print "\t- $nombre_ligne ligne(s)\n\n";
  close $fh or die("Impossible de fermer le fichier : $fichier\n");
}
 
#======================================================
# Nombre d'arguments : 1
# Argument(s)        : un répertoire ($repertoire)
# Retourne           : Tableau de fichier (@fichiers)
#======================================================
sub lister_fichiers {
  my ( $repertoire ) = @_;
  my @fichiers;
 
  # Ouverture d'un répertoire
  opendir (my $fh_rep, $repertoire) 
    or die "impossible d'ouvrir le répertoire $repertoire\n";
 
  # Liste fichiers et répertoire sauf (. et ..)
  my @Contenu = grep { !/^\.\.?$/ } readdir($fh_rep);
 
  # Fermeture du répertoire
  closedir ($fh_rep);
 
  # On récupère tous les fichiers
  foreach my $nom ( @Contenu ) {
    # Fichiers
    if ( -f "$repertoire/$nom") {
      push ( @fichiers, "$repertoire/$nom" );  
    }
    # Repertoires
    elsif ( -d "$repertoire/$nom") {
      # recursivité
      push ( @fichiers, lister_fichiers("$repertoire/$nom") );
    }
  }
 
  return @fichiers;
}

Le concept est le suivant :
Je liste les fichiers et ensuite je les lit afin de compter le nombre de lignes.

Inspire toi de codes présent ici : sources.

[Philou67430]

Tu dois ouvrir (et fermer) le fichier à chaque fichier trouvé. Par ailleurs, pour compter les lignes, tu peux aussi simplement utiliser le pseudo opérateur "goatsa".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $NumLigne = 0;
 
sub recherche {
 if (-f){
  ++$n;
  if ($File::Find::name =~ /\.cpp/) {
    open my $FILE, "<", $File::Find::fullname;
    $NumLigne += () = <$FILE>;
  }
}
 
 
find(\&recherche,"/chemin/vers/repertoire");
print "Le nombre de lignes est : $NumLigne\n";

(Je n'ai pas testé le code).

[zoé78]

merci merci.

Je vais essyer de déchiffrer et tous ca et les tester.

[jabbounet]

je pense que tu oublie d'ouvrir ton fichier/fermer (open/close).


Tu peux essayer de compter les \n dans le fichier.
exemple perl count.pl a.cpp b.cpp ....

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
 
#/bin/perl
$lines = 0;
$total = 0;
foreach $filename  (@ARGV)  {
    $lines = 0;
    open(FILE, $filename) or die "Can't open `$filename': $!";
    while (sysread FILE, $buffer, 4096) {
        $lines += ($buffer =~ tr/\n//);
    }
    close FILE;
    $total += $lines;
    print "$filename: $lines\n";
}
print "total: $total\n"

[lilian_h]

Bonjour,

Si tu es sur un système unix ou linux, tu peux aussi faire ça:

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
 
#!/usr/bin/perl 
use strict;
use warnings;
 
my $chemin="/ton/chemin";
 
open FILE_LST, "find $chemin -type f 2>/dev/null | " or die "Cannot find files in $chemin\n";
foreach my $filename ( <FILE_LST>) 
{
    open F, "wc -l $filename  |  " or die "Cannot open $filename \n";
    print <F>;
    close F
}
 
 
close FILE_LST

Ca t'éviteras de lire ligne à ligne chaque fichier.

Lilian.

[zoé78]

merci jibril
Ton code marche super bien j'ai réussi à le modifier un peu.

maintenant je vais chercher comment enlever les lignes qui sont des commentaires.

[djibril]

N'oublie pas le tag résolu!