Copie de hash de ref de array sans les ref

Version imprimable

23/06/2009, 11h57
Zwiter

Copie de hash de ref de array sans les ref

Bonjour,
J'ai un hash contenant des références d'array, et je voudrais le copier sans les references donc dupliquer les arrays.
Le but est de modifier ces arrays sans en modifier les array d'origine via les references.
Je pense bien a parcourir tout le hash et a faire des copies de chaque array.

Mais peut on faire moins lourd ?
Z.
23/06/2009, 12h06
Philou67430

C'est quoi, lourd pour toi ?

Code:

%hash_copy = map { $_ => [ @{$hash{$_}} ] } keys %hash;

(je ne l'ai pas testé).

Mais bien plus polyvalent, utilise le module Clone.

Exemple d'utilisation de Clone en uniligne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
$ perl -e 'use Clone qw(clone);%a = ( a => [ 1, 2, 3], b => [10, 20, 30]);%b = %{clone(\%a)};map { my $a = $_;map $_ *= 10, @$a } values %b;use Data::Dumper;print Data::Dumper->Dump([\%a, \%b], [qw(*a *b)])'
%a = (
       'a' => [
                1,
                2,
                3
              ],
       'b' => [
                10,
                20,
                30
              ]
     );
%b = (
       'a' => [
                10,
                20,
                30
              ],
       'b' => [
                100,
                200,
                300
              ]
     );

Soit un usage du style

Code:

1
2
3
4
use Clone qw(clone);
 
my %a = ( ... );
my %b = %{clone(\%a)};

23/06/2009, 13h44
Zwiter

Merci :)
hash parfaitement copié.
J'ai adopté clone pour sa lisibilité :)

Z.
23/06/2009, 14h18
Philou67430

J'en suis ravi, j'ai aussi appris un nouveau module :ccool: