Il me faudrait une commande surement une boucle pour faire des manipulations sur tous les fichiers d'un répertoire.
Il faut donc que le programme traite tous les fichiers.
Avec bash c'était du style
for fic in *
do{
commandes
}
Mais en perl je sais pas comment on fait
Pour prendre un exemple au moins c'est clair
Si je veux compter le nombre de caractères d'un fichier
Mon fichier est par exemple dans le répertoire fic
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 #!/usr/bin/perl $compteur=0; open $fichier,'<',"fichier.txt"; while($ligne=<$fichier>){ chomp($ligne); $car=length($ligne); $compteur=$compteur+$car; print("$compteur\n"); } close $fichier;
Et j'ai plusieurs fichiers à traiter
Comment dois-je faire
Partager