Discussion :

[misterfed]

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 :

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

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

merci pour toutes aides

[Philou67430]

Avec ça, ça devrait marcher...

Code :

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

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.

[misterfed]

Avec ça, ça devrait marcher...

Code :

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

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.

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

Code :

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

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);
 }

[Lolo78]

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

Code :

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

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 :

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

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 à $_
}

[misterfed]

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 :

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

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

[misterfed]

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

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

[Philou67430]

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 :

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

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 :

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

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

[misterfed]

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 :

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

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 :

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

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

merci pour la leçon

[Lolo78]

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.