Couldn't match the very thing your code is doing now, that is print data in this format:typex ...... typey ..... typea ..... typez ......
You should be more specific in what is it you want to do and how the output should be structured? At this stage, the only thing I see changed in your 'requirements' is the 'type' ordering. However, the new ordering doesn't appear to be alphanumeric. So, do you want some predefined ordering?typea name5 9 8 2 1 typex name1 1 2 3 4 name3 2 3 3 1 typey name2 3 4 5 6 typez name4 5 3 4 2
And subsequent output:my %types; while (<DATA>) { chop; m/(.*)\s([^\s]+)$/ or next; push @{$types{$2}}, $1; } foreach my $type (keys %types) { print "$type\n"; print "$_\n" for @{$types{$type}}; } __DATA__ name1 1 2 3 4 typex name2 3 4 5 6 typey name3 2 3 3 1 typex name4 5 3 4 2 typez name5 9 8 2 1 typea
But even this is really a rewrite of your original code and doesn't do any sorting, especially the way you want it as it doesn't appear to be in proper alphanumerical order.typex name1 1 2 3 4 name3 2 3 3 1 typea name5 9 8 2 1 typey name2 3 4 5 6 typez name4 5 3 4 2
# Under Construction
In reply to Re: Working with arrays
by vladb
in thread Working with arrays
by kevinw
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |