Extraction avec expression régulière

bonjour ;

je suis entrain de faire une fonction mais je bloc sur une manière de faire.
voila :
j'ai une information du type a[200:50]
je dois extraire l'information 200 et 50.
donc j'ai fais une regexp

Code:

---

1 2 3

if($bus =~ m/^a\[\d+:\d+\]$/i){ $k= #je veux le 200 $l= #je veux le 50

---

merci pour toutes aides ;)

Avec ça, ça devrait marcher...

Code:

---

1 2 3

if (my ($k, $l) = $bus =~ m/^a\[(\d+):(\d+)\]$/i) { $k; # $k contient 200 $l; # $l contient 50

---

D'une manière plus générique, tu peux extraire le contenu des accolades (avec une regexp du style $bus =~ /\[(.+?)\]/) puis découper le contenu avec split et ":" comme séparateur.

Citation:

---

Envoyé par Philou67430

Avec ça, ça devrait marcher...

Code:

---

1 2 3

if (my ($k, $l) = $bus =~ m/^a\[(\d+):(\d+)\]$/i) { $k; # $k contient 200 $l; # $l contient 50

---

D'une manière plus générique, tu peux extraire le contenu des accolades (avec une regexp du style $bus =~ /\[(.+?)\]/) puis découper le contenu avec split et ":" comme séparateur.

---

:ccool: merci
Voila la fonction un peu modifier ......

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

my $bb = "a[200:50]"; my ($q,$qq) = bus($bb); print"$q,$qq\n"; sub bus { my ($b) = @_; my ($prem,$sec)=""; if($b =~ m/^a\[(\d+):(\d+)\]$/){ # my @t = split /":"/,$1; ($prem,$sec) =($1,$2); } return ($prem,$sec); }

---

Citation:

---

Envoyé par misterfed

:ccool: merci
Voila la fonction un peu modifier ......

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

my $bb = "a[200:50]"; my ($q,$qq) = bus($bb); print"$q,$qq\n"; sub bus { my ($b) = @_; my ($prem,$sec)=""; if($b =~ m/^a\[(\d+):(\d+)\]$/){ # my @t = split /":"/,$1; ($prem,$sec) =($1,$2); } return ($prem,$sec); }

---

---

Juste un petit point, si l'expression régulière échoue, ton affectation ($prem,$sec) =($1,$2) va mettre des valeurs indéfinies dans tes variables et tu vas retourner une liste de deux scalaires indéfinis à la fonction appelante. Ce n'est pas forcément un problème si tu gères ce cas de figure, mais il faut en tenir compte.

Cela dit, ce serait tout de même plus simple d'écrire:

Code:

---

1 2 3 4

sub bus { $_ = shift; # met le contenu du premier paramètre dans $_ return ($1, $2) if /^a\[(\d+):(\d+)\]$/; # compare l'expression régulière à $_ }

---

Citation:

---

Envoyé par Lolo78

Juste un petit point, si l'expression régulière échoue, ton affectation ($prem,$sec) =($1,$2) va mettre des valeurs indéfinies dans tes variables et tu vas retourner une liste de deux scalaires indéfinis à la fonction appelante. Ce n'est pas forcément un problème si tu gères ce cas de figure, mais il faut en tenir compte.

Cela dit, ce serait tout de même plus simple d'écrire:

Code:

---

1 2 3 4

sub bus { $_ = shift; # met le contenu du premier paramètre dans $_ return ($1, $2) if /^a\[(\d+):(\d+)\]$/; # compare l'expression régulière à $_ }

---

---

je viens juste de tester ta fonction elle ne recupere pas les deux valeurs numeriques mais elle me parait juste. teste pour voir :roll:

Citation:

---

Envoyé par misterfed

je viens juste de tester ta fonction elle ne recupere pas les deux valeurs numeriques mais elle me parait juste. teste pour voir :roll:

---

Autant pour moi ELLE FONCTIONNE TRES BIEN TA FONCTION, je suis fatigue ce matin car j'ai donne un mauvais jeux de test :oops:

Citation:

---

Envoyé par Lolo78

Juste un petit point, si l'expression régulière échoue, ton affectation ($prem,$sec) =($1,$2) va mettre des valeurs indéfinies dans tes variables et tu vas retourner une liste de deux scalaires indéfinis à la fonction appelante. Ce n'est pas forcément un problème si tu gères ce cas de figure, mais il faut en tenir compte.

---

Non Lolo, si l'expression régulière échoue, on ne rentre pas dans le if, et on n'affecte pas $prem et $sec avec $1 et $2.
Donc par défaut, on retournera les valeurs qui leur ont été affectée avant. Et c'est là qu'est l'erreur de misterfed:

Code:

---

my ($prem,$sec)="";

---

Ici, tu affectes un scalaire (une chaine vide) à une liste. Perl, dans sa grande bonté, accepte et affecte la chaine vide à $prem, mais il n'affecte rien à $sec (qui est alors undef).
Une manière plus légale d'affecter une liste de valeurs à une liste de variables est de mettre une liste à droite de l'opérateur d'affectation :

Code:

---

1 2 3 4

my ($prem,$sec)=(""); # affecte "" à $prem et rien à $sec my ($prem,$sec)=(undef, ""); # affecte undef à $prem et "" à $sec my ($prem,$sec)=("", ""); # affecte "" à $prem et à $sec my ($prem,$sec)=("") x 2; # affecte "" à $prem et à $sec

---

Bonne journée

Citation:

---

Envoyé par Philou67430

Non Lolo, si l'expression régulière échoue, on ne rentre pas dans le if, et on n'affecte pas $prem et $sec avec $1 et $2.
Donc par défaut, on retournera les valeurs qui leur ont été affectée avant. Et c'est là qu'est l'erreur de misterfed:

Code:

---

my ($prem,$sec)="";

---

Ici, tu affectes un scalaire (une chaine vide) à une liste. Perl, dans sa grande bonté, accepte et affecte la chaine vide à $prem, mais il n'affecte rien à $sec (qui est alors undef).
Une manière plus légale d'affecter une liste de valeurs à une liste de variables est de mettre une liste à droite de l'opérateur d'affectation :

Code:

---

1 2 3 4

my ($prem,$sec)=(""); # affecte "" à $prem et rien à $sec my ($prem,$sec)=(undef, ""); # affecte undef à $prem et "" à $sec my ($prem,$sec)=("", ""); # affecte "" à $prem et à $sec my ($prem,$sec)=("") x 2; # affecte "" à $prem et à $sec

---

Bonne journée

---

:ccool: merci pour la leçon

Citation:

---

Envoyé par Philou67430

Non Lolo, si l'expression régulière échoue, on ne rentre pas dans le if, et on n'affecte pas $prem et $sec avec $1 et $2.
Donc par défaut, on retournera les valeurs qui leur ont été affectée avant.

---

Exact Philou, j'ai lu le code trop vite.

:ccool:

En fait, j'utilise presque toujours l'affectation directe des résultats de match dans les tests, ce qui évite d'utiliser les variables à effet de bord $1, $2, ...

Code:

---

1 2 3

if (my ($prem, $sec) = /^a\[(\d+):(\d+)\]$/) { return ($prem, $sec); }

---

Pour un cas aussi simple que celui-ci, où aucun autre traitement n'est réalisé sur $prem et $sec, ta solution est tout aussi bonne.