Discussion :

[sabbish]

Bonjour,

J'ai la boucle suivante qui marche mais ne me satisfait pas :

Code :

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

1
2
3
4
5
6
7
8
9
 
if( $_ =~ /$regExpImage/ ) {
      my $image =  $& ;
      print $image ;
      if( $_ =~ /[[:digit:]]{1,2}\/[[:alpha:]]{3}\/[[:digit:]]{4}:[[:digit:]]{2}:[[:digit:]]{2}:[[:digit:]]{2}/ ){
         my $date =  $& ;
         print $date ;
      }
}

En fait je ne sais pas comment affecter une variable à partir d'une expression régulière. En gros, faire un truc qui donne :
$mavariable = partie de $machainecomplete répondant à l'expression régluière
$mavariable2 = partie de $machainecomplete répondant à une autre expression régluière

Celà permettrait d'éviter d'utiliser des if inutiles, des $_ à répétition, et des $& qui parait il ralentissent le code.

Merci

[strach]

Bonjour

Il te faut matcher ta regexp avec des parenthèses () autour de ce qui t'intéresse. Ensuite $1 contient ce qui a été matché dans la première parenthèse, $2 dans la deuxième ....

Exemple :

Code :

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

1
2
3
4
5
6
 
$t = "abc/hello/def/world/fghhd";
if ($t =~ /\/(.*?)\/.*?\/(.*?)\// ) {
     print $1."\n";
     print $2."\n";
}

renvoit un joli :

Code :

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

1
2
3
 
hello 
world

[djibril]

j'en fait reference dans la FAQ Perl de ce forum. Bonne lecture!!!

[sabbish]

Merci à vous, ça marche et c'est plus joli.

[Jedai]

Il vaut mieux également éviter d'utiliser $& car l'usage de ces variables oblige le moteur de regex à effectuer des opérations supplémentaires et donc ralentit toutes les regexs du script.

--
Jedaï

[sabbish]

Merci Jedai,

tu as une solution pour éviter celà ?
Est ce que les $1 et $2 posent le même problème ?

[Jedai]

Tu n'utilises pas $&, c'est tout. Tu peux tout à fait remplacer $& par $1 en entourant toute la regex avec des parenthèses, mais pour ses petites soeurs $' et $`, c'est plus délicat... La solution : on peut utiliser les variables spéciales @+ et @- en conjonction avec substr() pour les simuler. (si tu ne comprends pas ce que je raconte, jette un coup d'oeil à "perldoc perlvar" et "perldoc -f substr" pour des éclaircissements)

--
Jedaï

[sabbish]

Merci Jedai,

Si c'est bon je crois avoir compris