while (<TESTFILE>) { #@tmp = split; # Split elements into an array. #push @AoA, [ @tmp ]; # Add an anonymous array reference +to @AoA. @tmp = split /\|/; $AoA[$tmp[0]-1] = []if !defined $AoA[$tmp[0]-1]; push @{$AoA[$tmp[0]-1]}, $tmp[1]; }
In reply to Re: array of arrays
by BillKSmith
in thread array of arrays
by virtualweb
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |