Script qui marche mais pas elegant[newbie]
Hi all!
Bon alors voila, je fais du perl depuis environ 2 jours et g un morceau de code qui ressemble a ca:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| while(<SOURCE>){
$tab1[$cpt1++] = $_;
last if ($_ =~ /^chaine1/);
}
while(<SOURCE>){
$tab2[$cpt2++] = $_;
last if ($_ =~ /^chaine2/);
}
while(<SOURCE>){
$tab3[$cpt3++] = $_;
last if ($_ =~ /^chaine3/);
}
while(<SOURCE>){
$tab4[$cpt4++] = $_;
last if ($_ =~ /^chaine4/);
} |
etc
etc
En tout 11 boucles while, et a chaque fois les variables tab(i), cpt(i), avec i(1..n)
Comment rendre tout ca un peu plus joli avec perl, et faire executer le while en boucle sur i?
Je sais pas si c'est clair,
Je sais la solution doit etre toute naze, vous moquez pas, la prog et moi ca fait 2 :oops:
Celui qui pourra m'aider aura mon eternelle gratitude...
