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.