suppression fin chaîne de caractère

**webol** · 14/04/2011, 16h41

Bonjour,

Je suis en train de m'arracher les cheveux sur quelque chose que j'imagine simple, mais vu mon niveau en perl !!!!

Voila j'ai une variable que contient une chaîne de caractère du style $var = aaaaa_bbbbbb .
Je veux supprimer tout ce qui est à partir du _ , c'est à dire ne garder que aaaaa .
Je précise que le nombre de a et de b peut varier.

Merci pour votre aide !

**Philou67430** · 14/04/2011, 16h49

Comme toujours en perl, TIMTOWTDI. En voici une avec une expression régulière :

Code :

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

1
2
$var = "aaaaa_bbbbbb";
$var =~ s/_.*//;

**djibril** · 14/04/2011, 16h50

Code :

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

1
2
3
4
5
6
7
#!/usr/bin/perl
use strict;
use warnings;
 
my $chaine = 'aaaaa_bbbbbb';
$chaine =~ s{_.+$}{_};
print $chaine;

**djibril** · 14/04/2011, 16h51

Grillé par philou (dans ton code, le souligné saute également)

.

**webol** · 14/04/2011, 16h54

Merci à vous, je savais que c'était simple !!!!

J'ai cherché, lu les faqs mais je n'y arrivais pas

**Philou67430** · 14/04/2011, 17h17

C'est ce qui était demandé je crois

Envoyé par webol

c'est à dire ne garder que aaaaa .

**djibril** · 14/04/2011, 17h31

**webol** · 15/04/2011, 13h15

Oui c'est tout a fait ce que je demandais.

Une autre, si je peux me permettre ?

comment faire pour garder la deuxième partie d'une chaîne de caractère si je n'est pas le "_" mais un espace ?

C'est a dire comment faire si $var="aaaa bbbb" pour garder $var="bbbb" ?

Merci.

**mamax29** · 15/04/2011, 14h10

Code :

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

1
2
3
4
5
6
7
#!/usr/bin/perl
use strict;
use warnings;
 
my $chaine = 'aaaaa bbbbbb';
my ($out) = $chaine =~ m/\s(.*)$/;
print "$out\n";

mais y'a surement plus simple et plus sûr.

**webol** · 15/04/2011, 14h54

Merci mamax29

faut que j'arrive à comprendre, si $var="aaa bbb ccc" et que je veux garder que $var="bbb" comment je fais ?

**mamax29** · 15/04/2011, 15h21

Code :

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

1
2
3
my $chaine = 'aaaaa bbbbbb ccccc';
my ($out) = $chaine =~ m/\s(.*?)\s/;
print "$out\n";

Explication:

L'expression de base:

Code :

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

m/\s.*?\s/;

Recherche une chaine de caractère qui commence par un espace ( symboli'se par "\s" ) qui contient un nombre indéfini de n'importe quel caractère ( symbolisé par ".*?" ) et qui se termine par un espace ( "\s" )

l'expression de base appliquée à une chaine de caractère s’écrit comme ci-dessous:

Code :

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

$chaine =~ m/\s.*?\s/;

mais dans ce cas, le résultat de cette commande ne peut être que "vrai", expression trouvé, ou "faux" expression pas trouvée.

dans ton cas, tu veux extraire la chaine trouvée entre les deux espaces:
on applique donc la commande suivante:

Code :

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

my ($out) = $chaine =~ m/\s(.*?)\s/;

Dans la commande, m/\s(.*?)\s/; les parenthèses indique qu'il faut extraire ce qu'il y a dedans.
Elle est appliqué à la chaine de caractère "$chaine"
et la sous chaine extraite est stocké dans la variable "$out"
!! Attention !! Dans la commande, les parenthèses autour de la variable $out sont obligatoire.