Re: Push array to hash

Set $Data::Dumper::Deepcopy to true before dumping.

#!/usr/bin/env perl

use Data::Dumper;
use strict;
use warnings;

my %hash=("one two"=>"buckle my shoe","three four"=>"shut the door");
my @arrayOfHashes;
for (1..3) {
    push @arrayOfHashes,\%hash;
    }
warn 'BEFORE: ',Data::Dumper->Dump([\@arrayOfHashes],[qw(*arrayOfHashe
+s)]),' ';
$Data::Dumper::Deepcopy=1;
warn 'AFTER: ',Data::Dumper->Dump([\@arrayOfHashes],[qw(*arrayOfHashes
+)]),' ';
[download]

BEFORE: @arrayOfHashes = (
                   {
                     'one two' => 'buckle my shoe',
                     'three four' => 'shut the door'
                   },
                   $arrayOfHashes[0],
                   $arrayOfHashes[0]
                 );
  at DataDumperDeepCopy.t line 12.
AFTER: @arrayOfHashes = (
                   {
                     'one two' => 'buckle my shoe',
                     'three four' => 'shut the door'
                   },
                   {
                     'one two' => 'buckle my shoe',
                     'three four' => 'shut the door'
                   },
                   {
                     'one two' => 'buckle my shoe',
                     'three four' => 'shut the door'
                   }
                 );
  at DataDumperDeepCopy.t line 14.
[download]

Comment on Re: Push array to hash Select or Download Code

Replies are listed 'Best First'.
Re^2: Push array to hash by haukex (Archbishop) on Jun 25, 2020 at 06:41 UTC
Set $Data::Dumper::Deepcopy to true before dumping. Caveat: That only changes the way the data structure is displayed, but not the underlying data structure, that will still contain multiple references to the same hash.	[reply]
Re^2: Push array to hash by Anonymous Monk on Jun 25, 2020 at 09:24 UTC
Icky `warn 'BEFORE: ',Data::Dumper->Dump([\@arrayOfHashes],[qw(arrayOfHash +es)]),' '; $Data::Dumper::Deepcopy=1; warn 'AFTER: ',Data::Dumper->Dump([\@arrayOfHashes],[qw(arrayOfHashes +)]),' ';` [download] ok `warn 'BEFORE: ',Data::Dumper->Dump([\@arrayOfHashes],[qw(arrayOfHash +es)]),' '; warn 'AFTER: ',Data::Dumper->new([\@arrayOfHashes],[qw(arrayOfHashes) +])->Deepcopy(1)->Dump,' ';` [download] ok? 😌	[reply] [d/l] [select]