Discussion :

[mamax29]

Rebonjour,

J'ai dans mon script un tableau simple que l'on nommer "@mon_tableau"
J'utilise pour récupérer une valeur du tableau, l'index voulu qui est contenu dans une table de hachage de la façon suivante:

Code :

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

print $mon_tableau[$mon_hash{"cle1"}];

Le souci c'est que $mon_hash{"cle1"} peut être vide (ne pas contenir de valeur numérique d'index), et donc le script me retourne une erreur:

"Argument "" isn't numeric in array element"

Comme mon tableau peut être très grand, cela m'ennuie de faire un if à chaque fois...

existe-t-il donc une méthode pour pouvoir faire ça sans que le programme me retourne une erreur si $mon_hash{"cle1"} ne contient rien?

[Dimitry.e]

Code :

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

print $mon_tableau[$mon_hash{"cle1"}] if defined $mon_hash{"cle1"};

[Philou67430]

Il est possible d'utiliser l'opérateur // (uniquement à partir de la version 5.10.0), mais dans ce cas, il faut impérativement donner une valeur numérique par défaut à l'indice recherché. Si l'on souhaite donner la valeur par défaut à 0, voici ce que cela donnerait :

Code :

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

print $mon_tableau[$mon_hash{"cle1"} // 0];

[mamax29]

merci pour vos réponse!

cependant:

@Dimitry.e:

Code :

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

print $mon_tableau[$mon_hash{"cle1"}] if defined $mon_hash{"cle1"};

=> c'est à peu près ce que je voulais éviter

@Philou67430

Code :

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

print $mon_tableau[$mon_hash{"cle1"} // 0];

C"est une idée peut être à creuser, mais dans mon cas actuel $mon_tableau[0] contient une valeur.

Mais en y repensant cela me donne une idée:

Code :

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

1
2
3
 
unshift(@mon_tableau, "");
print $mon_tableau[$mon_hash{"cle1"}+1 // 0];

Je vais essayer cela ce soir.

[Philou67430]

Ceci

Code :

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

print $mon_tableau[$mon_hash{"cle1"}+1 // 0];

n'aura pas l'effet voulu, car $mon_hash{"cle1"}, qui est la valeur undef, sera utilisé dans l'addition numérique avant d'être utilisé par l'opérateur //.
Ainsi, le warning apparaitra sur l'opérateur d'addition, au lieu de l'opération d'indexation de tableau.

Une autre idée :

Code :

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

print exists $mon_hash{"cle1"} ? $mon_tableau[$mon_hash{"cle1"}] : "";

Autre manière de l'écrire :

Code :

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

print exists $mon_hash{"cle1"} && $mon_tableau[$mon_hash{"cle1"}] || "";

Mais toutes ces écritures sont aussi lourdes que celle de dimitry, proposition de dimitry que j'aurais écrite avec exists plutôt que defined :

Code :

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

print $mon_tableau[$mon_hash{"cle1"}] if exists $mon_hash{"cle1"};

[mamax29]

Salut,

Ma solution fonctionne bien mais mon explication n'était pas la bonne ;-)

Dans un premier temps je complète ma table de hachage via des demandes à l'utilisateur qui donne le numéro d'index voulu (en commençant par "1" à la place de "0")

or initialement je devais soustraire "1" pour avoir un index qui commence à zéro pour le tableau.

mais maintenant, je ne soustrait plus le "1",

Code :

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

1
2
3
4
5
6
7
foreach my $cle (keys(%mon_hash))
{
	print "Enter the column number of the data corresponding at $cle : ";
	$input = <STDIN>;
	chomp $input;
	$mon_hash{$cle} = $input;
}

ensuite mon unshift, etc...

Code :

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

1
2
unshift(@mon_tableau, "");
print $mon_tableau[$mon_hash{"cle1"} // 0];

[Philou67430]

OK, ça m'a l'air effectivement mieux.

Une autre idée aurait alors été de prendre une autre valeur par défaut que l'élément 0 (celle d'un élément au delà du tableau, qui contiendrait alors undef, et serait facilement identifiable avec l'opérateur defined ou // :

Code :

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

print $mon_tableau[$mon_hash{"cle1"} // @mon_tableau] // "Index non saisi";