Discussion :

[shwin]

Salut la gang, je suis un débutant en perl et je suis un peu tout fourré.

J'ai un tableau de hash

Code :

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

1
2
3
4
 
[0] -> mon_hash
[1] -> mon_hash1
[2] -> mon_hash2

Je voudrais transféré mon tableau de hash dans un hash

Code :

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

1
2
 
{0 => mon_hash, 1=> mon_hash1, 2 => mon_hash2}

J'aimerais éviter la boucle for et y'aller avec un map pour avoir un system plus performant.

Merci

[Jedai]

Le plus simple, c'est :

Code :

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

1
2
3
4
5
 
my @tab_de_hash = ...;
 
my %new_hash;
@new_hash{ 0 .. $#tab_de_hash } = @tab_de_hash;

Mais je ne vois pas du tout l'intérêt de cette manipulation ?

--
Jedaï

[shwin]

Merci Jedai pour ce code mais je ne crois pas que ca va me satisfaire. Mon exemple a été mal construit. Les index de mon tableau sont des sequence que l'on retrouve dans ma BD. Ce sont des item_id, donc la séquence peut être brisé (item_supprimer) à certain moment donc je ne peux pas faire de 0 .. un_nombre.

De plus, je veux utilisé un hashes pour pouvoir accédé directement au élément de mon hashes->{item_id}. J'ai besoin de faire c'est manipulation car mes item (bd) sont dans un cache en mémoire et j'ai souvent besoin d'accédé au attribut d'un item. Donc je veux pouvoir faire ceci

Code :

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

1
2
 
warn $mon_hashes->{mon_item_id}->{mon_attribut}

javais penser a faire qqechose de ce genre (avec le map au lieu du for)

Code :

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

1
2
3
4
5
 
my %hashes;
for (@$item_list) {
$hashes{$_->{item_id}} = $_;
}