Bonjour,
je cherche a récupérer des lignes (contenant le terme "blabla") d'un fichier, et les afficher en fonction des numéros de ligne que je possède :

(ligne 1) blabla exemple
(ligne 2) blabla exxemple
(ligne 3) blabla exxemplle
(ligne 4) blibli
(ligne 5) blabla exxempplle
(ligne 6) blabla eexxemple
(ligne 7) blabla eexxemplee


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
my @ligne_a_recup ;
my @tab = (2,5) #numéros de ligne que je veux récupérer, données non fixes
 
while (my $ligne = <toto.txt>)
{
 
       if($ligne =~ /blabla/)
       {
         $var_blabla++;
 
       }
 
       if (@tab==$var_blabla)
      {
       @ligne_a_recup = $ligne;
       print "@ligne_a_recup\n"; # doit afficher la ligne 2 et 5
 
      }
 
}
Je n'y arrive pas : ca m'affiche une seule ligne...