Discussion :

[mashu]

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...

[Jasmine80]

Code :

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

if (@tab==$var_blabla)

Tu vérifies que le nombre d'éléments de ton tableau (et non la valeurs de ces éléments) est égal à ta variable.

Code :

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

@ligne_a_recup = $ligne;

tu essaies d'attribuer un scalaire à un array

Code :

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

1
2
       @ligne_a_recup = $ligne;
       print "@ligne_a_recup\n"; # doit afficher la ligne 2 et 5

utilise simplement

print $ligne

[mashu]

Merci jasmine80, c'est bon je me suis rendu compte de mon erreur. Il manquait la variable a mon tableau pour véifier les valeurs

Code :

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

1
2
3
4
5
6
7
8
my $b=0;
...
 
if (@tab[$b]==$var_blabla)
{
print "$ligne\n";
b++;
}

print $ligne

ok, j'avais pas bien saisi la différence entre @ et $...

Merci encore.

[Jasmine80]

Tu peux imbriquer tes deux if vu que les lignes retenues doivent répondre à tes deux conditions.
Essaie quelque chose comme ça

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
 
my $var_blabla;
my @ligne_a_recup ;
my @tab;
$tab[2] = 1;
$tab[5] = 1;
 
 
while (my $ligne = <toto.txt>){
       if($ligne =~ /blabla/){
		 $var_blabla++;
		if ($tab[$var_blabla]){
			print $ligne;
			# ou si récupération pour utilisation ultérieure
			# chomp($ligne);
			# push (@ligne_a_recup , $ligne);
		}        
       }
}

Code :

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

if (@tab[$b]==$var_blabla)

utilise $ et non @ pour accéder aux valeurs d'un array

Code :

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

if ($tab[$b]==$var_blabla)

[mashu]

ok, j'ai imbriqué mes IF et j'ai viré les @...
C'est nikel.
M'ci