Bonjour, je cherches à récuperer les deux lignes qui suivent une ligne contenant une expression régulière seulement je ne trouve pas comment faire.
Si quelqu'un à la solution je lui en serai reconnaissant 
Voici le code :
Code :
- #! /usr/bin/perl -w
- use strict;
- my $ligne;
- my $TERID;
- #my $i=1;
- #my $mod;
- print "entrer le numero de terminal a matcher\n";
- $TERID=<STDIN>;
- chomp($TERID);
- open (FICHIER, 'C:\detail-light.txt');
- while ($ligne = <FICHIER> ) {
- if ($ligne =~ /$TERID/) {
- # $mod = $i+3;
- # while($i % $mod != 0) {
- print $ligne;
- # $i++;
- # }
- }
- }
- close(FICHIER);
|
j'avais pas pensé a ça ...