Arreter la lecture du fichier

Bonjour,

Je cherche a arreter la lecture de mon fichier quand je recontre un motif précis.

Est ce que ceci est correct :

Code:

---

1 2 3 4 5 6 7 8 9 10

while ( my $ligne = <FICHIER>) { if ($ligne =~ m/^\tMonMotif/ .. defined $ligne) { ... ... ... ... last } }

---

Ou bien avait vous une solution ?

Utilise l'instruction last.

J'ai testé avec :

Code:

---

1 2 3 4 5 6 7

if ($trouve) { if ($ligne=~/\t{2}Application Actions/) {last;} if ( $ligne =~ m/\t*Function:\s*(.+)/ ){ print $cpt, "\t"; } } if ($ligne=~/Application Description:/) {$trouve=1;}

---

mais il ne s'arrete pas !!

Je voudrais débuter la lecture dès le debut du fichier (qui commence par "Application Description:" ) et j'arreter dès que je rencontre "Application Actions" afin de récupérer mes Function:

Tout dépend s'il existe plusieurs boucles imbriquées, auquel cas, last s'applique seulement à la dernière imbrication.
Pour préciser la boucle à terminer, il faut la labelliser (ou utiliser un indicateur de fin) :

Code:

---

1 2 3 4 5

FICHIER: while (<STDIN>) { if (/fin/) { last FICHIER; } }

---

ou

Code:

---

1 2 3 4 5

while (!$fini && (my $line = <STDIN>)) { if ($line =~ /fin/) { $fini = 1; } }

---

merci mais j'y arrive pas...

voici mon code

Code:

---

1 2 3 4 5 6 7 8 9

if ( $ligne =~ m/\t*Function:\s*(.+)/ && $fini !=1) {   if ($ligne=~/\t{2}Application Actions/) { $fini = 1; } else{ print $cpt, "\t"; } }

---

comme ça non plus ça ne marche pas :s

Code:

---

1 2 3 4 5 6 7 8 9 10

my $fini = 0;     if ($ligne=~/\t{2}Application Actions/) { $fini = 1; }   if ( $ligne =~ m/\t*Function:\s*(.+)/ && $fini == 0) { print $cpt, "\t"; }

---

tu as une idée ?

Oups... désolé, j'avais corrigé dans mon script réel, mais j'ai oublié de mettre à jour le message... il faut inverser les conditions dans le while.
J'ai corrigé le post de 11h51 !
Désolé. :oops:

Voici mon code

Code:

---

1 2 3 4 5 6 7 8

if ( $fini == 0 && $ligne =~ m/\t*Function:\s*(.+)/) { if ($ligne=~/\t{2}Application Actions/) { $fini = 1; } if ($fini == 0){ print $cpt, "\t"; } }

---

Ca ne marche tjs pas, je parcours l'intégralité du fichier.
Alors que pour moi mon code dit :

Si fini = 0 et que ma ligne = Function
alors si ma ligne = Application Actions alors fini = 1
sinon si fini = 0 alors je print ma ligne.

Mon programme me print tt les lignes de mon code qui commence par Functions au lieu de s'arreter quand il rencontre Application Action

une idée?

c'est bon j'ai résolu !

mon code correct :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

if ($ligne=~/\t*Application Actions/) { $fini = 1; print "\n" ,"ligne : " , $cpt, "\n"; }   if ( $fini == 0 && $ligne =~ m/\t*Function:\s*(.+)/) {   if ($fini == 0){ print $cpt, "\t"; } }

---

pb de syntaxe !

merci encore