Discussion :

[grofanch]

Bonjour
J'ai un fichier de ce type issu d'un capteur
xxxxx;aaaaaa10;zzzz;rrrrr;.......
xxxxx;aaaahh30;dddd;ffff;.......
xxxxx;aaaaau20;aaaa;hhh;.......
xxxxx;aaayyy30;rrrrrr;kkkk;.......
xxxxx;aaaaii20;ttttt;oooo;.......
xxxxx;arrrrr10;eeee;vvvv;.......
....
je doit faire ressortir certaines occurrences par exemple ..aa20; qui sont distribuées de manière aléatoires, ça c'est fait mais je doit aussi récupérer les 5 lignes qui suivent cette occurrences et ça je ne sait pas faire.
Si vous avez une idée.

extrait du code:

foreach $ligne (@fic) {
chomp ($ligne);
@champs = split(/;/,$ligne);
if ( substr($champs[1],10,2) == 20){
print "$ligne\n";
}
}

merci par avance

[philouelgeek]

Salut et bienvenue sur le forum,

Ce code devrait fonctionner.

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
 
use strict;
use warning;
 
my cptligne = 0;
 
foreach  $ligne (@fic) {
cptligne++;
chomp ($ligne);
@champs = split(/;/,$ligne);
       if ( substr($champs[1],10,2) == 20){
     print "$ligne\n";
 
       for (my $i = 0; $i < 5; $i++) { 
         print $fic[$cptligne+$i];
       }
 
    }
}

@++

Ps : N'oublie pas de mettre ton code entre les balises prévues à cet effet [ code] [\ code]

[grofanch]

Merci ça fonctionne et la prochaine fois je n'oublierai pas les balises.
A+

[philouelgeek]

De rien et n'oublie pas le tag "Résolu"