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
Partager