J'aimerais récupérer la ligne de mon match ainsi que les 8 lignes suivantes.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
while($ligne = <AutoDim>){
    if($ligne =~ /41.*337/){
        $index = 0;
    }
    if($index < 9){
        print $ligne;
    }
    $index ++;
}
Y aurait-il une meilleure façon de procéder en utilisant $. ou autre?


Merci,