Discussion :

[sommerset]

bonjour à tous.

J'ai un code qui manipule des chaînes de caracteres, mais dans certains cas la chaîne se finit par le caractere "/" et dans ce cas je souhaite supprimer ce caractere et ne garder que ce qu'il y a avant.

ex : "abcdef" OK
"ghijk/" devient "ghijk"

j'ai essayé avec le code suivant :

Code :

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

1
2
3
4
my $chaine="MaChaine/";
if ( substr( $chaine , $#chaine-1, 1) eq "/") { 
             $chaine = substr($chaine,0,$#chaine-1);
}

malheureusement ce code n'a pas l'air de marcher.
J'essaie de voir avec les expressions regulieres mais pour l'instant je trouve pas
si qqn a la solution ce serait cool...
Merci,

Sommerset

[2Eurocents]

Il y a plein de solutions

L'une, avec les expressions rationnelles, serait :

$chaine =~ s#/$## ;

On fait une substitution de '/(fin de ligne)' par '(rien du tout)'. Et cette substitution se fait avec un motif délimité par des #, plutôt que des /, pour éviter d'avoir à protéger le /.

[sommerset]

ok d'accord c'est pile ce que je cherchais, merci beaucoup pour ton aide 2Eurocents !