SPLIT

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:

---

@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

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:

---

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

---

Citation:

---

Envoyé par 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:

---

@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:

---

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";

---

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

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

Code:

---

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

---

Est un bon début ...

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:

---

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à

Citation:

---

Envoyé par 2Eurocents

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

Code:

---

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

---

Est un bon début ...

---

pffffff.....je me suis fait doubler :lol:

Citation:

---

Envoyé par djibril

pffffff.....je me suis fait doubler :lol:

---

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

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

je dois écrire ça?

Code:

---

$res=@ch;

---

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:

---

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

Citation:

---

Envoyé par chekibperl

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

je dois écrire ça?

Code:

---

$res=@ch;

---

---

Code:

---

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

---

donc ton $res recupere le nombre de case du tableau

Non djibril,

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

Citation:

---

Envoyé par 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.

---

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 :wink: .
Maitenant, tu recupere le code qu'on t'as ecris et tu fais un join de ton tableau.

Code:

---

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;

---

PARFAIT DJIBRIL ET 2EURO