Discussion :

[fly85]

Bonjours à tous
je désire récupérer la première itération d'un fichier dont j'ai l' expression régulière.
Pour cela j'utilise un booléen $notFound = '1' que je set a 0 quand je trouve l' expression.
<indexPassed> est le descripteur de mon fichier.
Si je retire la 2° condition du while mon expression régulière fonctionne correctement je rentre dans ma condition
par contre avec la 2° condition je rentre bien dans la boucle mais la condition n'est plus vérifié voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
$notFound = '1';
while ($ligne = <indexPassed> && $notFound)
        {
        print $ligne;
        if ($ligne =~ /dashboard\/tab\//)
                {
                print "je set notFound a 0";
                print "$&\n";
                $notFound = '0';
                }
        }

et $ligne me renvoie 1
merci

[Tymk]

Je sais pas si j'ai bien compris le but de la manip mais il me semble que ceci devrait correspondre au besoin :

Code :

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

1
2
3
4
5
6
7
while( $ligne = <indexPassed> ){
        print $ligne;
        if( $ligne =~ /dashboard\/tab\// ){
                print 'je sorts de la boucle'."\n";
                break;
        }
}

Edit: La condition booléenne dans la boucle qui itère sur le descripteur de fichier ne fait, à mon avis, pas bon ménage. D'où ton problème.

[fly85]

tout mon fichier est affiché avec cette ligne

Code :

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

1
2
3
4
5
6
7
8
 
while( $ligne = <indexPassed> ){
        print $ligne;
        if( $ligne =~ /dashboard\/tab\// ){
                print 'je sorts de la boucle'."\n";
                break;
        }
}

j ai contourné le problème avec

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
while ($notFound)
        {
        while (<indexPassed>)
        {
                last if !$notFound;
                if (/dashboard\/tab\/build\/detail\/beeware-os-NG\/[0-9]+/)
                        {
                        print "$&\n";
                        $notFound = '0';
                        }
                }
        }

je trouve ca un peu barbare si quelqu'un a mieu à me proposer

[Jasmine80]

Si j'ai bien compris, il faut simplement sortir de la boucle une fois le motif rencontré? Pourquoi ne pas simplement faire :

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
#!/usr/bin/perl
 
use strict;
use warnings;
 
open my $indexPassed, '<', 'chemin\fichier' or die;
 
 
 
while (my $line = <$indexPassed>){
	if ($line =~ m/dashboard\/tab\/build\/detail\/beeware-os-NG\/[0-9]+/){
		print "$&\n";
		last;
	}
}
 
close $indexPassed;

[fly85]

Merci c est ce que je cherchais

[Tymk]

Autant pour moi. break est une instruction C. last est effectivement plus adapté au perl.

[Jasmine80]

Break existe également en Perl, mais je n'ai jamais dû l'utiliser, je me sers toujours de last.

[Jedai]

Perl sait gérer les valeurs numériques tu sais... pas besoin de toutes les mettre entre guillemets.

Code :

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

1
2
3
4
5
6
7
my $line;
 
while( $line = <$indexPassed> ) {
  last if $line =~ m{dashboard/tab/};
}
 
print $line;

Par ailleurs 'break' ne marche qu'en conjonction avec 'given' (le 'switch' de Perl, introduit en 5.10). Dans une boucle les instructions de contrôle de flot sont 'last', 'next' et 'redo'.

--
Jedaï