Discussion :

[oliviernouhi]

Bonjour,

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

Est ce que ceci est correct :

Code :

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

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 ?

[Dimitry.e]

Utilise l'instruction last.

[oliviernouhi]

J'ai testé avec :

Code :

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

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:

[Philou67430]

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 :

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

1
2
3
4
5
FICHIER: while (<STDIN>) {
   if (/fin/) {
      last FICHIER;
   }
}

ou

Code :

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

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

[oliviernouhi]

merci mais j'y arrive pas...

voici mon code

Code :

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

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 :

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

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 ?

[Philou67430]

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

[oliviernouhi]

Voici mon code

Code :

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

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?

[oliviernouhi]

c'est bon j'ai résolu !

mon code correct :

Code :

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

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