Bonjour,
j'aimerais savoir comment faire pour lire le nombre de lignes de plusieurs fichier dans un répertoire en Perl.
voici mon code:

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
#!/usr/bin/perl
 
opendir REP, "test" or die "impossible d'ouvrir le repertoire";
open(FICHIER,"<Lettre.txt") || die "Problème à l\'ouverture : $!";
open (WRITER,">> TraceNbLigne.txt") or die "Le fichier ne peut etre édité ! \n";
$i = 0;
while(<FICHIER>)
{
$i ++;
}
print WRITER "Il y a $i lignes \n";
print "\nNombre de lignes : $i\n";
close FICHIER || die "Problème à la fermeture : $!";
close Rep ;
close WRITER
quand je lit seulement le fichier.txt qui est sur mon bureau, j'arrive a relever le nombre de lignes, et a le tracer dans un fichier.txt, mais quand je place mon fichier dans un répertoire, je n'arrive pas a aller le lire, si quelqu'un peut m'aider, merci d'avance