Utilisation de PDL ?

Bonjour,

Je dois reprendre un programme en perl, mais je ne comprends pas certaines partie et je ne trouve pas de documentation.

au début : (classique ...)

Code:

---

1 2 3 4 5 6 7

use PDL; use PDL::NetCDF; use PDL::Char;     my $Value=pdl(0); $Value = pdl( $FichLu{VAR}->{$varInitial}->{VALUE} );

---

J'ai l'impression qu'il s'agit d'un tableau (où je dois modifier certaines valeurs)

$Value est-il un tableau ? comment accéder aux donner ou les modifier ?

je suis un peu perdu.

merci

OB

Je dirais que $Value est une référence vers un objet renvoyé par le constructeur pdl

Pour de la doc, tu peux voir ce site :
http://search.cpan.org/~chm/PDL-2.01...re/Core.pm#pdl

Merci pour le lien.

Après quelques recherche, c'est en effet un tableau.

$Value->nelem renvoi le nombre d'élements (ici 100050 qui correspond à 290 x 345, car il y a deux dimensions !)

si je fais print $_ . "\n" foreach ($Value->list) tous les éléments sont affichés

mais : print $Value->index($_),"\n" foreach (0 .. $Value->nelem-1); plante car il faut certainement utliser deux dimensions.

Reste à trouver la syntaxe pour accéder à un point [x,y] et le modifier ....

Voici la solution que j'ai trouvé : (c'est pas forcement LA solution, mais ça marche)

Code:

---

1 2 3 4 5 6 7 8

#declaration et affectation $valeurs=pdl(0); $valeurs=pdl(un tableau à 2 dimensions); #dans mon exemple ce tableau arrive d'une fonction netcdf   my $val=$valeurs->at($x,$y); #lecture d'une valeur en x,y   set $valeurs, $x,$y,$newval; #pour écrire/modfier une valeur

---

cordialement

OB