Discussion :

[tiboo]

bonjour,

j'aurai voulu comprendre pourquoi quand j'ecris :

Code :

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

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 ?

[Jasmine80]

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

Code :

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

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

<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,

[tiboo]

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

[Jedai]

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 :

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

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 :

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

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 :

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

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ï

[tiboo]

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