lire un tableau

[kurtz le pirate]

bonjour,

j'essaye d'exploiter le module 'Math::Geometry::Voronoi'
<http://tinyurl.com/ad9of6z>


une des m�thodes retourne un tableau d�finit comme �a :
@polys = ( $point_index, [$lat1, $lon1], [$lat2, $lon2], ... );

un dump du tableau donne bien cette structure :
$VAR1 = [
0,
[
'1.5',
'0.5'
],
[
'-0.5',
'2.5'
],
[
'-6.5',
'5.5'
]
];
$VAR2 = [
1,
[
'1.5',
'0.5'
],
...



je ne sais pas comment lire les �l�ments un par un.

for (@polys) {
$index = ?
for (???) {
[$x,$y] = [$lat1, $lon1];
}
}


c'est b�te, mais la je s�che lamentablement :(
merci de votre aide.



--
klp

[ST]

On 2013-05-19, kurtz le pirate <kurtzl...@yahoo.fr> wrote:

> je ne sais pas comment lire les éléments un par un.


use Data::Dumper;

my $v = [ 0, [ '1.5', '0.5' ], [ '-0.5', '2.5' ], [ '-6.5', '5.5' ] ];

print Dumper $v;

print $v -> [0] ."\n";
print $v -> [1] -> [0] ."\n";
print $v -> [1] -> [1] ."\n";
print $v -> [2] -> [0] ."\n";

[Jean-Louis Morel]

Le 19/05/2013 09:56, kurtz le pirate a �crit :

>
> j'essaye d'exploiter le module 'Math::Geometry::Voronoi'
> <http://tinyurl.com/ad9of6z>
>
>
> une des m�thodes retourne un tableau d�finit comme �a :
> @polys = ( $point_index, [$lat1, $lon1], [$lat2, $lon2], ... );
>
>

> je ne sais pas comment lire les �l�ments un par un.
>
> for (@polys) {
> $index = ?
> for (???) {
> [$x,$y] = [$lat1, $lon1];
> }
> }
>

Essayez :

foreach (@polys) {
my $index = shift @{$_}; # on extrait l'index en t�te de tableau
print $index, "\n";
foreach my $vertex ( @{$_} ) { # il reste la liste des points
print "[$vertex->[0] ; $vertex->[1]] ";
}
print "\n\n";
}

HTH

--
JL
http://www.bribes.org/perl

[kurtz le pirate]

In article <5198a940$0$2553$426a...@news.free.fr>,

Super !
Je n'aurais jamais trouv� que le premier �l�ment �tait 'index'
Le deuxi�me, le tableau des points...


Un Grand Merci


--
klp