Aide parseur perl

Bonjour,

J'aurais besoin d'un coup de main sur un script en perl. (Je suis débutant)

Voilà mon fichier :

Citation:

---

--------------------------------------------------------
Stat : OK
Code : 5C9 761 775 179
78D 791 795 17D
8A5 8AD 8B5 1BD

Stat : OK
Code : 25C9 1741 1774

Offline : yes
Code : 2529 1T41 174

---------------------------------------------------------

---

J'aimerai récupérer la ligne Code avec les identifiants 5C9 761 ...

comme ça :

Citation:

---

5C9
761
775
179
78D
791
795
17D
8A5
8AD
8B5
1BD
25C9
1741
1774
2529
1T41
174

---

Voici mon script mais ça ne fonctionne pas :cry:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

line: while (<>) { chomp;   if (/Code/) { while($_ ne ''){   my @h = split(' ',$_);   foreach my $i ($[ .. $#h) {   if ($h[$i] !~ 'Code|:') { print "$h[$i]\n"; } }   last line if ( /^$/)   } } }

---

Le script boucle :cry: , j'aimerai qu'il passe au prochain Code lorsqu'il rencontre une ligne vide.

quelqu'un peut il m'aider ?

merci.

La condition de ton while le plus interne ne peut jamais devenir fausse, parce qu'à aucun moment la valeur de $_ ne change.
Pourquoi t'embêtes-tu à utiliser la variable $[ au lieu de mettre zéro, comme tout le monde ? Voire utiliser directement ton tableau @h comme argument du foreach : Perl n'est pas C, pas besoin de passer par un indice pour parcourir un tableau.

Et surtout, utilises les balises CODE quand tu veux montrer du code. C'est le symbole # que tu vois dans l'interface de saisie ou, si tu veux le taper à la main : [ code](ton code)[ /code] (en virant les espaces après [).

<HS>

Schmorgluck, pour afficher des balises dans un post, tu peux utiliser les balises [noparse] ... [/noparse].

Exemple :

[noparse][code]( mon code )[/code][/noparse]

donne :
[code]( mon code )[/code]
</HS>

Comment on fait dans se cas, pour arrêter la boucle ?

La fonction last est également utilisable dans une boucle foreach.

Il faudrait enlever la seconde boucle à l'intérieur de la première, elle complique inutilement.
A la place, faire simplement une variable qui indique si on est dans une section Code ou pas et qui peut être mise à jour à chaque nouvelle ligne lue du fichier en fonction du contenu de cette ligne.