Discussion :

[obtuli31]

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 :

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

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

[JeanMi3000]

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

[obtuli31]

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

[obtuli31]

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

Code :

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

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