Discussion :

[Petitcodeur]

J'arrive pas à voir comment faire une belle regexp pour supprimer pleins de blancs en fin de chaîne de caractère du style

Code :

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

$text="1. toto et tata                      "

j'ai pensé à

Code :

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

$text= ~s/$\s*//;

mais je le sens pas trop; ais-je raison de douter?

[Jedai]

Mis à part les fautes de syntaxes, ta regex est la bonne solution pour faire cela.

--
Jedaï

[Olivier]

Bonjour,

Pour supprimer les blancs de fin:

Code :

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

1
2
 
$val =~ s/\s+$//;

Pour supprimer les blancs de début:

Code :

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

1
2
 
$val =~ s/^\s+//;

Ou, plus simplement, si tu travailles sur $_

Code :

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

1
2
3
 
s/\s+$//;
s/^\s+//;

[Petitcodeur]

et quelles sont les fautes de syntaxes?
Sinon autre regex un peu liée, comment détecter qu'on a pas une ligne faite que d'espaces ou juste d'un retour chariot?
Quand je fait

Code :

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

1
2
3
4
5
$tata= qqch;
 
if($tata= ~m/./) {
blablabla
}

En faisant des prints ça me change la valeur de $tata quand ça passe dans le if.
Pourquoi?

[Jedai]

et quelles sont les fautes de syntaxes?

Tu as le droit d'être observateur, et de remarquer que là où tout le monde écrit :

Code :

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

1
2
 
$chaine =~ regexp

toi tu écris :

Code :

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

1
2
 
$chaine=  ~regexp

L'opérateur qui applique une regex à une variable est "=~", là tu es en train de faire :

Code :

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

1
2
 
$chaine =  ( ~ ($_ =~ regexp) )

(~ est le not bit à bit, fonctionne aussi sur une chaîne de longueur quelconque)

De plus dans ton premier exemple, le $ marquant la fin de la ligne est au début de la regexp ! Ce qui logiquement voudrait dire que tu essaies de supprimer des espaces après la fin de ta chaîne...
(De toute façon, Perl ne le comprend pas comme ça, il le comprend plutôt comme $\ puis "s")

--
Jedaï

[MarneusCalgarXP]

et de remarquer aussi que tu as codé ta regexp "à l'envers" !!!

Code :

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

s/$\s*//;

Là tu recherches une fin de ligne puis des espaces, alors que ce tu veux, c'est recherches des espaces AVANT la fin de la ligne :

Code :

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

s/\s+$//;

[Petitcodeur]

Merci bien.