Discussion :

[neg12]

Bonjour,

je cherche à récupérer deux mot séparés par un _ dans deux variables différentes,

ex:
test1_test2

je voudrais récupérer $mot1=test1 et $mot2=test2

Donc pour mot1 récupérer tout ce qui est devant _, et pour mot2 récupérer tout ce qui est derrière _
(j'ai plusieurs chaines différentes avec deux mots séparés par _)

Si quelqu'un à une idée pour me filer un coup de main, je l'en remercie d'avance.

[djibril]

Code :

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

my ($mot1, $mot2) = split /_/, $chaine;

[mamax29]

Salut,

tu peux utiliser la fonction "split"

Code :

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

1
2
3
 
$ma_chaine= "mot1_mot2";
@mot_seul = split(/:/, $ma_chaine);

tu obtiendras un tableau:
$mot_seul[0] => mot1
$mot_seul[1] => mot2

[neg12]

Super, merci beaucoup a vous deux

[mamax29]

Ah,

On a posté en même temps...

une autre solution sans la fonction split avec des REGEX:

Code :

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

1
2
3
4
 
my $chaine = "tata_tutu";
my ($mot1) = $chaine =~ m/^([^_]*)_/;
my ($mot2) = $chaine =~ m/_([^_]*)$/;

[neg12]

Merci mamax29 également,

j'ai un autre petit souci si vous pouvez encore une fois m'apporter votre aide,

en fait mes chaines sont de ce style la:

$ma_chaine= "Le%20Quelquechose_Le%20Autrechose";

Et je voudrais en plus de les séparer en deux mots comme au dessus, remplacer les %20 par des espaces, le tout dans la même expression (si possible),

auriez-vous une idée?

Merci d'avance

[mamax29]

fait un simple substitute:

Code :

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

1
2
$ma_chaine= "Le%20Quelquechose_Le%20Autrechose";
$ma_chaine =~ s/%20/ /g;

et ensuite le reste de ton code pour le split, etc.

[neg12]

Ah super merci, en fait j'ai testé avec le contraire:

my ($mot1, $mot2) = split /_/, $machaine;
puis
my ($mot1, $mot2) =~ s/%20/ /g;

du coup le résultat était foireux,

merci beaucoup!