Push function

boom has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Push function by manoj_speed (Prior) on Apr 06, 2009 at 05:36 UTC
You can use this to achieve it. `use Data::Dumper; my @arr = ([11,22,[[]]],[333,444,[]],[6666,7777,[]]); push(@{$arr[0][2][0]},3); print Dumper @arr;` [download]	[reply] [d/l]
Re^2: Push function by boom (Scribe) on Apr 06, 2009 at 05:50 UTC
Hi manoj_speed, Is it possible to push a value into anonymous array without dereference it	[reply]
Re^3: Push function by moritz (Cardinal) on Apr 06, 2009 at 06:17 UTC
No. "How do I make a phone call to England?" - "Here you go, you take the phone and dial..." - "can I do that without a phone?".	[reply]
Re^3: Push function by ysth (Canon) on Apr 06, 2009 at 21:18 UTC
Why do you want to avoid dereferencing it? It seems likely that there's something more you could say about what you actually want to do that could help us help you, but I have no idea what it might be. -- Online Fortune Cookie Search Office Space merchandise	[reply]
Re: Push function by leslie (Pilgrim) on Apr 06, 2009 at 05:47 UTC
You can do like this. `my @arr = ([11,22,[ []]],[333,444,[]],[6666,7777,[]]); print Dumper @arr; push (@{$arr[0]->[2]->[0]},3); print Dumper @arr;` [download]	[reply] [d/l]
Re: Push function by GrandFather (Saint) on Apr 06, 2009 at 20:51 UTC
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	[reply] [d/l] [select]
Re: Push function by bichonfrise74 (Vicar) on Apr 06, 2009 at 20:03 UTC
Hello, I wrote it in this manner... Although the code looks ugly, I find it more readable. Is this a bad practice though? `#!/usr/bin/perl use strict; use Data::Dumper; my @arr = ( [11,22,[[]]], [333,444,[]], [6666,7777,[]] ); push ( @{ @{ @{ @arr }[0]->[2] }[0] }, 'bbb' ); print Dumper(\@arr);` [download]	[reply] [d/l]