arrays - Unresolvable perl error? -


use strict; @array = (); @nums = [3, 4]; foreach $i ( 0 .. 10 ) {     foreach $j ( 0 .. 10 ) {         $nums[0] = 4+1;         push @{ $array[$i] }, @nums;     } } print $array[6][2][0]. "\n"; 

as 1 can see if run code, doesn't run properly. however, if comment out line "$nums[0] = 4+1;", runs fine. going on? can immutable arrays pushed onto others?

@nums array, , assign array reference (with brackets []). so, change proper array declaration: my @nums = (3, 4);

use strict; use data::dump;  @array = (); @nums = (3, 4); foreach $i ( 0 .. 10 ) {     foreach $j ( 0 .. 10 ) {         $nums[0] = 4+1;         push @{ $array[$i] }, @nums;     } }  dd @array;  #-- output: (   [5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4],   [5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4],   [5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4],   [5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4],   [5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4],   [5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4],   [5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4],   [5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4],   [5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4],   [5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4],   [5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4], ) 

Comments

Popular posts from this blog

monitor web browser programmatically in Android? -

Shrink a YouTube video to responsive width -

wpf - PdfWriter.GetInstance throws System.NullReferenceException -