Re^3: Running out of memory while running this for loop

The "Perlish" way to iterate element-by-element over an array is:

c:\@Work\Perl\monks>perl -wMstrict -le
"my @array = qw(zero one two three);
 ;;
 for my $element (@array) {
   print qq{element '$element'};
   }
"
element 'zero'
element 'one'
element 'two'
element 'three'
[download]

If each "element" of @array is actually an array reference, you might then need to iterate in turn over the referenced array in similar fashion:

c:\@Work\Perl\monks>perl -wMstrict -le
"my @array = (
   [ 1, 2, 3,    ],
   [ 'v' .. 'z'  ],
   [ qw(one two) ],
   );
 ;;
 for my $arrayref (@array) {
   for my $element (@$arrayref) {
     printf qq{'$element' };
     }
   print '';
   }
"
'1' '2' '3'
'v' 'w' 'x' 'y' 'z'
'one' 'two'
[download]

Please see perldsc for more info and examples.

Give a man a fish: <%-{-{-{-<

Comment on Re^3: Running out of memory while running this for loop Select or Download Code

Replies are listed 'Best First'.
Re^4: Running out of memory while running this for loop by Ppeoc (Beadle) on Nov 02, 2015 at 01:53 UTC
Thank you so much! I now understand what I was doing wrong. Got it to work with the following piece of code `for my $i ( 2033 .. $#data ) { if (($i-$n)%6267== 0) { $color = $data[$i][0]; $order= $data[$i+1][0]; $shape = $data[$i+3][0]; $name = $data[$i+4][0]; } print $out_ph1 $predata,",", $color,"," ,$order,"," ,$shape,", +" ,$name,","; for my $j ( 4 .. $#{ $data[$i] } ) { print $out_ph1 $data[$i][$j],"\_"; } print $out_ph1 "\n"; }` [download] Thank you monks!	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Running out of memory while running this for loop
by Ppeoc (Beadle) on Nov 02, 2015 at 01:53 UTC

for my $i ( 2033 .. $#data ) {
    if (($i-$n)%6267== 0)
    {
        $color = $data[$i][0];
        $order= $data[$i+1][0];
        $shape = $data[$i+3][0];
        $name = $data[$i+4][0];        
        }
        print $out_ph1 $predata,",", $color,"," ,$order,"," ,$shape,",
+" ,$name,",";
     for  my $j ( 4 .. $#{ $data[$i] } ) {
         print $out_ph1 $data[$i][$j],"\_";
     }
        print $out_ph1 "\n";    
 }
[download]

[reply]
[d/l]