Discussion :

[Sub]

Bonsoir à tous.

Je me viens de me mettre au Perl et je bloque là-dessus :

Code :

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

m/Debut (?:(\d+)\.\s)*Fin/

Ce regex récupère des lignes comme :

Début Fin
Début 1. 2. 3. 4. Fin
Debut 1. Fin
etc

Le problème c'est que je ne sais pas comment récupérer les valeurs entre parenthèses avec $1, $2 etc dans ce cas puisque le pattern du milieu peut se répéter un nombre de fois indéfini.
Vous avez une idée de la façon dont je peux faire ça ?

[Jedai]

Code :

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

1
2
m/Debut (\d+\.\s)*Fin/;
my @nums = split m/\.\s/, $1;

Ou :

Code :

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

1
2
3
4
5
6
7
my @nums;
if($str =~ m/Debut /g) {
  while($str =~ m/(\d+)\.\s)/g) {
    push @nums, $1
  }
  @nums = () if $str !~ m/Fin/;
}

--
Jedaï

[Sub]

J'avais pas pensé au split, ça fonctionne très bien avec ça. Merci !