Discussion :

[golfy123]

Bonjour,

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

Voilà mon fichier :

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

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

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
 
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 , j'aimerai qu'il passe au prochain Code lorsqu'il rencontre une ligne vide.

quelqu'un peut il m'aider ?

merci.

[Schmorgluck]

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

[Philou67430]

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

[golfy123]

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

[Philou67430]

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

[estofilo]

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.