Discussion :

[Tekone]

Bonjour tout le monde,

Ca fais peu de temps que je me suis m'y mis au Perl, mais je rencontre quelques difficultés, au niveau des expressions régulières. J'ai des chaine de ce type :

my $phr = "|var|~var2~(var3)=valeur"

Mon but, c'est de pouvoir récuperer chaque valeur (var,var2,var3 et valeur), et les stockés dans des scalaires.

(J'ai la solution pour faire le parsing a la main, mais je me dis que les regex sont surement plus efficace pour ce type d'opération).

Quelqu'un peut-il m'aider ?

Merci bien. :-)

[lami20j]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
#
use warnings;use strict;
 
my $phr = "|var|~var2~(var3)=valeur";
 
my($v1,$v2,$v3,$v4) = $phr =~ /\W(\w+)\W*(\w+)\W*(\w+)\W*(\w+)/;
 
print "\$v1 = $v1\n\$v2 = $v2\n\$v3 = $v3\n\$v4 = $v4\n";

et même

Code :

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
#
use warnings;use strict;
 
my $phr = "|var|~var2~(var3)=valeur";
 
my($v1,$v2,$v3,$v4) = $phr =~ /\w+/g;
 
print "\$v1 = $v1\n\$v2 = $v2\n\$v3 = $v3\n\$v4 = $v4\n";

lami20j