Discussion :

[chekibperl]

Bonjour a tts,
J'ai quelque difficultés avec le split depuis 2jours,
J'ai une chaine qui est la suivante
La region touche est (33.8416667,7.6880556) Fontenay aux roses
et j'aime extraire que 33 et 7 et les mettre dans une varaible.J'ai fais ça mais ca marche pas.

Code :

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

@tableau=split (/; /,$data1);

La data1 c'est la phrase et le tableau c'est mon résultat.
Donc j'ai un probléme de split.
Please HELP

[tfe]

tu as pas l air d avoir compris a quoi sert le split: il decoupe ta chaine selon des caracteres particuliers:
ici tu split sur "; ", donc ton tableau contiendra d un un seul element contenant toute la chaine vu que il n y a pas de "; " dans ta chaine.

Pour ce que tu veux faire, je pense que tu dois utiliser des regex.

Code :

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

my @tableau  = $data1 =~ /\D+([\d\.]+)\D+([\d\.]+)/;

[2Eurocents]

Bonjour a tts,
J'ai quelque difficultés avec le split depuis 2jours,
J'ai une chaine qui est la suivante
La region touche est (33.8416667,7.6880556) Fontenay aux roses
et j'aime extraire que 33 et 7 et les mettre dans une varaible.J'ai fais ça mais ca marche pas.

Code :

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

@tableau=split (/; /,$data1);

La data1 c'est la phrase et le tableau c'est mon résultat.
Donc j'ai un probléme de split.
Please HELP

Sur une chaine comme celle-ci, l'usage de split n'est pas l'idéal !!!

Pour arriver à récupérer ce que tu veux, il faudrait enchaîner plusieurs splits avec des motifs de coupure différents, et en négligeant les portions qui ne correspondent pas ...

C'est un boulot pour une extraction par expression rationnelle bien sentie, ça !

Code :

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

1
2
3
4
5
my $ch = "La region touche est (33.8416667,7.6880556) Fontenay aux roses";
my @tab = ($ch =~ /\D(\d+)\./g);
$, = ", ";
print @tab;
print "\n";

[chekibperl]

Ca marche à merveille pour ce cas ta ligne 2euro,

mais en réalité je peux avoir des chaines comme

La région touché est (-3.24546546,120.6846846) ASZER gael
est ce que je veux 2Euro c'est d'extraire la partie entiére -3 et 120, mais ca marche pas

[2Eurocents]

Alors il faut modifier l'expression rationnelle pour en tenir compte ...

Code :

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

my @tab = ($ch =~ /\D(-*\d+)\./g);

Est un bon début ...

[djibril]

si je comprend bien, tu veux à chaque fois le chiffre avant le premier point et entre les chiffres entre la virgule et le deuxieme point????????
est que toutes tes lignes seront semblables, c'est à dire mes configuration?
sinon voici une regex en se basant sur celle d'eurocents.

-3.24546546,120.6846846

Code :

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

1
2
3
4
5
6
 
my $ch = "La region touche est (33.8416667,7.6880556) Fontenay aux roses";
my @tab = ($ch =~ /\D(-?\d+)\./g);
$, = ", ";
print @tab;
print "\n";

voilà

[djibril]

Alors il faut modifier l'expression rationnelle pour en tenir compte ...

Code :

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

my @tab = ($ch =~ /\D(-*\d+)\./g);

Est un bon début ...

pffffff.....je me suis fait doubler

[2Eurocents]

pffffff.....je me suis fait doubler

Certes, mais il est préférable de quantifier le - avec un ?, comme tu l'as fait, qu'avec un * comme je l'ai fait de façon fort bourrine

[chekibperl]

petite question,
est ce qu'on pourra pas mettre le resultat obtenu dans une variable,

je dois écrire ça?

Code :

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

$res=@ch;

[djibril]

bon on t'as fait une regex racourci ou chaque pattern trouvé sera dans une case de ton tableau.
Sinon si t'es sur qu'à chaque fois y aura deux pattern trouvé, tu peux ecrire

Code :

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

1
2
3
4
5
my $ch = "La region touche est (33.8416667,7.6880556) Fontenay aux roses";
my ($motif1, $motif2) = ($ch =~ /\D(-?\d+)\./g);
$, = ", ";
print @tab;
print "\n";

voilà
$motif1 recupere $1 et $motif2 recupere $2

[djibril]

petite question,
est ce qu'on pourra pas mettre le resultat obtenu dans une variable,

je dois écrire ça?

Code :

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

$res=@ch;

Code :

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

$res=@ch; <=> $res=scalar(@ch);

donc ton $res recupere le nombre de case du tableau

[chekibperl]

Non djibril,

dans @ch j'obtient par exemple 41 -2
je veux mettre dans $res 41 -2
avec l'espace entre 41 et -2.

[djibril]

Non djibril,

dans @ch j'obtient par exemple 41 -2
je veux mettre dans $res 41 -2
avec l'espace entre 41 et -2.

J'ai bien compris. Je te disait juste que ta facon d'ecrire $res=@ch n'est pas bonne car $res recupere pas ce que tu veux .
Maitenant, tu recupere le code qu'on t'as ecris et tu fais un join de ton tableau.

Code :

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

1
2
3
4
5
 
my $ch = "La region touche est (33.8416667,7.6880556) Fontenay aux roses";
my @tab = ($ch =~ /\D(-?\d+)\./g);
my $res = join (" ", @tab);
print $res;

[chekibperl]

PARFAIT DJIBRIL ET 2EURO