Re^2: Array of Arrays: why is "$VAR1->[0][1]" and the like embedded within?

corenth: You can visualise what NetWallah said by writing your own display loop:

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

my @a = (1, 2, 3, 4, 6);
my $y = increment(increment(\@a));

for my $j (@$y)
{
    print "[\n";

    for my $k (@$j)
    {
        print "    $k: @$k\n";
    }

    print "]\n";
}

sub increment
...
[download]

Output:

14:12 >perl 1896_SoPW.pl
[
    ARRAY(0x1db5610): 1 2
    ARRAY(0x1d284d8): 2 3
]
[
    ARRAY(0x1d284d8): 2 3
    ARRAY(0x1d28640): 3 4
]
[
    ARRAY(0x1d28640): 3 4
    ARRAY(0x1d28a00): 4 6
]

14:12 >
[download]

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

Comment on Re^2: Array of Arrays: why is "$VAR1->[0][1]" and the like embedded within? Select or Download Code

Replies are listed 'Best First'.

Re^3: Array of Arrays: why is "$VAR1->[0][1]" and the like embedded within?
by NetWallah (Canon) on Jun 11, 2018 at 04:24 UTC

print Dumper $_ for @{ increment(increment(\@a)) };
# Output:
[
  [
    1,
    2
  ],
  [
    2,
    3
  ]
]
[
  [
    2,
    3
  ],
  [
    3,
    4
  ]
]
[
  [
    3,
    4
  ],
  [
    4,
    6
  ]
]
[download]

Memory fault -- brain fried

[reply]
[d/l]

Re^4: Array of Arrays: why is "$VAR1->[0][1]" and the like embedded within?

by Athanasius (Archbishop) on Jun 11, 2018 at 05:41 UTC

Sure, that gives a better view of the contents of the data structure. But it doesn’t show that the second occurrence of the anonymous array [ 2, 3 ] has the same address as (= is the same anonymous array as) the first — which is what I was intending to demonstrate.

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

[reply]
[d/l]

Re^5: Array of Arrays: why is "$VAR1->[0][1]" and the like embedded within?

by corenth (Monk) on Jun 11, 2018 at 15:32 UTC

$state{tired}?sleep(40):eat($food);

[reply]

Re^3: Array of Arrays: why is "$VAR1->[0][1]" and the like embedded within?
by corenth (Monk) on Jun 11, 2018 at 15:26 UTC

$state{tired}?sleep(40):eat($food);

[reply]