A voir également:
- Afficher le numéro de la ligne sous Perl
- Numero prive - Guide
- Aller à la ligne excel - Guide
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Hors ligne instagram - Guide
1 réponse
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 567
18 oct. 2008 à 17:50
18 oct. 2008 à 17:50
Salut,
Tu peux utiliser la variable spéciale $.
Sinon tu peux utiliser une variable compteur.
Version 1
Version 2
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
19 oct. 2008 à 15:27
Aussi je voulais savoir a quoi signifie "CustomLog " et "log pipe" toujours sur apache?
MERCI