[Perl] Afficher 1 numéro de ligne sur 100 [Résolu/Fermé]

Signaler
Messages postés
200
Date d'inscription
jeudi 20 décembre 2007
Statut
Membre
Dernière intervention
14 août 2014
-
Messages postés
11066
Date d'inscription
samedi 5 mai 2007
Statut
Contributeur
Dernière intervention
18 octobre 2016
-
Bonjour,

Dans un script PERL, je lis un fichier, comme ce fichier est ENORME, je ne parviens pas à suivre l'évolution du process. Je souhaiterais donc afficher le numéro de la ligne en cours 1 fois sur 100 ou 1000, j'ai donc penser faire :
while (<FICHIER_LOG>) {
     ....
     if (($. % 100) == 0) print "$.\n";


soit écrit le numéro de ligne si ce dernier est divisible par 100. Cependant j'ai l'erreur :

syntax error at test.pl line 168, near ") print"
Execution of test.pl aborted due to compilation errors.

Une idée de la bévu ? (j'ai aussi essayé if (($. % 100) = 0) print "$.\n"; sans plus de succés ).

Stéphane

1 réponse

Messages postés
11066
Date d'inscription
samedi 5 mai 2007
Statut
Contributeur
Dernière intervention
18 octobre 2016
1 686
Salut,
Il manque les accolades après ton if.
Sinon tu peux faire :
print "$.\n"  if (($. % 100) == 0);

Cdlt
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60043 internautes nous ont dit merci ce mois-ci