Discussion :

[billybob2006]

Hi all!

Bon alors voila, je fais du perl depuis environ 2 jours et g un morceau de code qui ressemble a ca:

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
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
Celui qui pourra m'aider aura mon eternelle gratitude...

[Jedai]

Tu pourrais faire un truc comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
my @tabReg = ( qr/^ma_chaine1/, qr/^ma_chaine2/, ... );
my @tabCont;
my $part = 0;
my $cpt = 0;
 
while( <SOURCE> ){
  $tabCont[$part][$cpt++] = $_;
  if( m/$tabReg[$part]/ ){
    $part++; $cpt = 0;
  }
}

--
Jedaï

[gege2061]

Bonjour,
de façon générale, si tu commence à utiliser des indices pour nommer t'es variables :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
$cpt1
$cpt2
$cpt3
...

C'est que tu peut utiliser un tableau à la place :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
$cpt[1]
$cpt[2]
$cpt[3]
...

Si tu débute en programmation, n'oublie pas qu'un papier et un crayon peuvent te faire gagner du temps

[billybob2006]

Thanx!

Merci de m'avoir eclaire l'espace d'un instant,

je continue ma quete du savoir Perl ultime,

avec un papier et un crayon...

[djibril]

Un autre conseil; lis la FAQ qu'on a écrit et les cours de GLdavid sur dvp.com
Ce sera un bon début pour toi,
courage!!