Salut,
Tu peux utiliser la variable spéciale $.
Sinon tu peux utiliser une variable compteur.
Version 1
lami20j@debian:~/trash$ cat fichier.txt
# ligne 1
ligne 2
# ligne 3
#ligne 4
ligne 5
lami20j@debian:~/trash$ cat nr_ligne.pl
#!/usr/bin/perl;
use strict;use warnings;
while (<>) {
print "$. . $_" if /4/;
}
__END__
lami20j@debian:~/trash$ perl nr_ligne.pl fichier.txt
4 . #ligne 4
lami20j@debian:~/trash$
Version 2
lami20j@debian:~/trash$ cat fichier.txt
# ligne 1
ligne 2
# ligne 3
#ligne 4
ligne 5
lami20j@debian:~/trash$ cat nr_ligne.pl
#!/usr/bin/perl;
use strict;use warnings;
open F,"fichier.txt" or die "E/S : $!\n";
while (<F>) {
print "$. . $_" if /4/;
}
__END__
lami20j@debian:~/trash$ perl nr_ligne.pl
4 . #ligne 4
106485010510997108