Re: Push function


The stupid question is the question not asked
	PerlMonks

Re: Push function

by GrandFather (Saint)

on Apr 06, 2009 at 20:51 UTC ( [id://755849]=note: print w/replies, xml )

Need Help??

in reply to Push function

Note that you don't need to 'make space'. Consider:

use strict;
use warnings;
use Data::Dump::Streamer;

my @arr = ([11, 22, [[]]], [333, 444, []], [6666, 7777, []]);

push @{$arr[0][2][0]}, 3;
Dump \@arr;

@arr = ([11, 22], [333, 444], [6666, 7777]);

push @{$arr[0][2][0]}, 3;
Dump \@arr;
[download]

Prints:

$ARRAY1 = [
            [
              11,
              22,
              [ [ 3 ] ]
            ],
            [
              333,
              444,
              []
            ],
            [
              6666,
              7777,
              []
            ]
          ];
$ARRAY1 = [
            [
              11,
              22,
              [ [ 3 ] ]
            ],
            [
              333,
              444
            ],
            [
              6666,
              7777
            ]
          ];
[download]

True laziness is hard work