Discussion :

[Spoutnik]

Hello

Je sais , je dis moi même qu'elle est pas violente, mais voila, y arrive pô

je cherche à avoir la dernière partie de la chaine '123456_56897_5555' séparée par des '_' . Ici 5555.

En une seule commande si c'est possible, c'est pour mettre dans une requete SQL.

Merci !

++

[Edit] rajout du 'o' de violente, pour faire plaisir à Arioch [/Edit]

[Arioch]

Code :

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

1
2
3
4
 
$chaine = "123456_56897_5555";
 
$_ = $1 if ($chaine =~ /_([^_]+)$/);

Topo rapide de ma regexp : /_([^_]+)$/
Recherche d'un caractère _ suivi de tout autre caractère n'étant pas un _ et ce, jusqu'à ce que la fin de chaîne soit atteinte.

Tu peux tester : ça fonctionne.

[Arioch]

Et sinon, on dit violente, pas vilente

[Arioch]

Ah et sinon, autre solution : spliter ta chaine sur _, ranger le tout dans une liste et en récupérer le dernier élément.

C'est à ça que j'ai pensé en 1er mais j'ai préféré réfléchir 2 minutes avant de te donner l'autre soluce. De peur que Jedai ou Pospos ne se pointent pour dire que mon code est nul

[Jedai]

Ah et sinon, autre solution : spliter ta chaine sur _, ranger le tout dans une liste et en récupérer le dernier élément.

C'est à ça que j'ai pensé en 1er mais j'ai préféré réfléchir 2 minutes avant de te donner l'autre soluce. De peur que Jedai ou Pospos ne se pointent pour dire que mon code est nul

Je ne t'aurais pas dit qu'elle était nulle, mais le posteur voulait une regex, parce que mettre un split dans une requête SQL ... (la question n'a rien à voir avec Perl, mais je ne suis pas opposé à ce que nous soyons le forum "regex" officieux)

Par ailleurs tu as laissé trainé un point inutile dans ta regex. Corrige ça dans tes messages précédents.

--
Jedaï

[Arioch]

Par ailleurs tu as laissé trainé un point inutile dans ta regex. Corrige ça dans tes messages précédents.

Ah ah ah !! Me doutais bien qu'il dirait quelque chose

Mais mais mais ??? De quel point tu parles ?

Jedai, merci pour le coup du point, j'ignorais cette énième subtilité !

[Petitcodeur]

Quelle est la différence entre ~/toto/ et ~m/toto/ ?

[Spoutnik]

Code :

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

1
2
3
4
 
$chaine = "123456_56897_5555";
 
$_ = $1 if ($chaine =~ /_([^_]+)$/);

Tu peux tester : ça fonctionne.

je confirme ! merci bcp.

la question n'a rien à voir avec Perl, mais je ne suis pas opposé à ce que nous soyons le forum "regex" officieux

il faut pt demander à faire un sous forum? Histoire que ce soit "officiel"

Encore merci!