Discussion :

[fraisa1985]

Bonjour,

Le code suivant lit un fichier texte ligne par ligne et affiche 'OK' à chaque fois qu'une ligne contienne le mot 'edit'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
use strict;
use warnings;
 
 
my $file = 'traiter.txt';
open my $fh, "<", $file or die "can't open < $file: $!";
 
while (my $ligne = <$fh>) {
    print 'OK' if $ligne =~ /edit/;
}

Je veux le modifier de telle façon que au lieu d'ecrire 'OK', il ecrit le numero de la ligne courante (celle qui contient le mot 'edit')

Merci

[Lolo78]

La variable $. contient le numéro de la ligne courante d'un fichier.

Donc, modifie cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
print '$.\n' if $ligne =~ /edit/;

[fraisa1985]

thank you