Using Shift on Multidimensional Array within Foreach Loop

[seisner]

Does anyone have any advice on how to chop off the first member in a multidimensional array?

Here's some sample data:

492000 200003 108352 2008
492000 200003 108352 2007
492000 200003 108352 2006
492000 200003 108352 2005

Here's some sample code:

foreach ( @memArray )
{

#do some stuff
shift(@memArray)
}

When I use shift within the foreach loop, it seems to be removing the wrong "rows" in the array. Has anyone had any experience with this? Any help would be much appreciated.

 

[stevexff]

Something like this perhaps? You don't specify your array structure, so I've assumed an array of arrays...

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

my @memArray;

push @memArray, [split] while (<DATA>);

print Dumper(@memArray);

shift @$_ foreach (@memArray); 

print Dumper(@memArray);

__DATA__
492000 200003 108352 2008
492000 200003 108352 2007
492000 200003 108352 2006
492000 200003 108352 2005

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[KevinADC]

When I use shift within the foreach loop, it seems to be removing the wrong "rows" in the array.

In the code you posted you are shifting the top level array which will remove all the elements of each sub array. See Steves code above for the proper syntax for shifting the first element off of each sub array.

------------------------------------------
- Kevin, perl coder unexceptional!