[RegExp] pb sur split

bonjour,

j'aurai voulu comprendre pourquoi quand j'ecris :

Code:

---

1 2 3 4

my $machaine = "<COORD xhg="1002" yhg="470" xbd="1544" ybd="539"><COORD xhg="1002" yhg="470" xbd="1544" ybd="539"><COORD xhg="1002" yhg="470" xbd="1544" ybd="539"><COORD xhg="1002" yhg="470" xbd="1544" ybd="539"><COORD xhg="1002" yhg="470" xbd="1544" ybd="539"><COORD xhg="1002" yhg="470" xbd="1544" ybd="539">"; my @montableau = split(/(<.*?>)/, $machaine);

---

j'obtiens une alternance de valeurs vides et de <COORD..> dans mon tableau ?

Utilise les simples quotes pour définir ta chaîne.

Code:

---

1 2 3 4 5 6

use strict;   my $machaine = '<COORD xhg="1002" yhg="470" xbd="1544" ybd="539"><COORD xhg="1002" yhg="470" xbd="1544" ybd="539"><COORD xhg="1002" yhg="470" xbd="1544" ybd="539"><COORD xhg="1002" yhg="470" xbd="1544" ybd="539"><COORD xhg="1002" yhg="470" xbd="1544" ybd="539"><COORD xhg="1002" yhg="470" xbd="1544" ybd="539">'; my @montableau = split(/(<.*?>)/, $machaine);   print map{$_."\n"} @montableau;

---

A l'écran

Citation:

---

<COORD xhg="1002" yhg="470" xbd="1544" ybd="539">

<COORD xhg="1002" yhg="470" xbd="1544" ybd="539">

<COORD xhg="1002" yhg="470" xbd="1544" ybd="539">

<COORD xhg="1002" yhg="470" xbd="1544" ybd="539">

<COORD xhg="1002" yhg="470" xbd="1544" ybd="539">

<COORD xhg="1002" yhg="470" xbd="1544" ybd="539">

---

Jasmine,

J'ai tjs une alternance de chaine vide et de <COORD...>

Oui, c'est normal : split /regexp/ découpe une chaîne selon la regexp donnée et renvoie la liste des sous-chaînes entre les occurences de la regexp.
Par exemple :

Code:

---

split m/:/, 'hello:world:goodbye';

---

renvoie ('hello', 'world', 'goodbye').

Cependant, si il y a "capture" (des parenthèses) dans la regexp, les chaînes capturées sont rajoutées dans la liste :

Code:

---

split m/(:)/, 'hello:world:goodbye';

---

renvoie ('hello', ':', 'world', ':', 'goodbye').

C'est ce qui se passe dans ton cas, il n'y a rien entre les regexps d'où les chaînes vides, et ta regexp capture les balises.

En fait tu ne devrait pas utiliser split dans ton cas, une simple regexp suffira :

Code:

---

1 2 3 4 5 6 7 8 9 10

my $machaine = <<'END_OF_HTML'; <COORD xhg="1002" yhg="470" xbd="1544" ybd="539"> <COORD xhg="1002" yhg="470" xbd="1544" ybd="539"> <COORD xhg="1002" yhg="470" xbd="1544" ybd="539"> <COORD xhg="1002" yhg="470" xbd="1544" ybd="539"> <COORD xhg="1002" yhg="470" xbd="1544" ybd="539"> <COORD xhg="1002" yhg="470" xbd="1544" ybd="539"> END_OF_HTML   my @montableau = ($machaine =~ m/(<[^>]+>)/g);

---

--
Jedaï

mon erreur est que je ne considérais pas la regexp comme un séparateur.
Merci bien:king: