array of arrays

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

Replies are listed 'Best First'.
Re: array of arrays by moritz (Cardinal) on Jul 28, 2011 at 12:20 UTC
If you don't want the first element, shift it away. Perl 6 - second systems done right	[reply]
Re^2: array of arrays by Anonymous Monk on Jul 28, 2011 at 12:24 UTC
But how can i put them again in @AoA? is it possible with my code,how i change the code?	[reply]
Re^3: array of arrays by moritz (Cardinal) on Jul 28, 2011 at 12:49 UTC
What have you tried? How did you fail? Have you read perllol? Do you want to remove the first of the arrays, or the first item of each inner array? Perl 6 - second systems done right	[reply]
Re: array of arrays by JavaFan (Canon) on Jul 28, 2011 at 12:56 UTC
I assume you don't want the first column of each line to be put in the datastructure. If it's something else you want, be more clear. If there's something in your datastructure that you don't want, just don't put it there (untested code): `use strict; use warnings; open my $fh, "<", "result" or die "open: $!"; while (<$fh>) { my @chunks = split; push @AoA, [@chunks[1..$#chunks]]; } close $fh or die "close: $!";` [download]	[reply] [d/l]
Re^2: array of arrays by Anonymous Monk on Jul 28, 2011 at 13:06 UTC
thank you so much.but a question for learning! where is shift?! how did you do this? i mean how did you omit the first element?	[reply]
Re^3: array of arrays by moritz (Cardinal) on Jul 28, 2011 at 13:12 UTC
My suggestion would have been `shift @chunks; push @array, \@chunks;` [download] Instead of the shift, JavaFan used a slice, `@chunks[1..$#chunks]`. which returns a list of all execpt the first element. There's more than one way to do it. Perl 6 - second systems done right	[reply] [d/l] [select]
Re: array of arrays by Anonymous Monk on Jul 28, 2011 at 12:46 UTC
PerlMonks is not a code-writing service ...	[reply]
Re^2: array of arrays by Anonymous Monk on Jul 28, 2011 at 12:59 UTC
thank you, i know that.i tried this code but it doesnt work. `#!/usr/bin/perl -w use strict; my @AoA; my $aref; my @array; open (IN,'<result'); while(<IN>){ push @AoA,[split]; } for $aref ( @AoA ) { shift @$aref ; @array=push(@array,@$aref); } for my $array(@array){ print @$array; }` [download]	[reply] [d/l]
Re: array of arrays by persianswallow (Novice) on Jul 28, 2011 at 17:16 UTC
may be you can use split as follow `@array={'AAAA335.879','abcd','eghytr','rhty'} split(/^\W+\d+\.?\d*/,@array)` [download]	[reply] [d/l]