I'm a little amazed this works but it does. :)
@nums = qw(55_20051202 56_20051203 57_20051204 101_20051205 59_20051206
10_20051207 61_20051208 62_20051208 63_20051208 64_20051209 65_20051209
66_20051210 67_20051211 68_20051212 69_20051213 70_20051214);
print join "\n", (map {join "_", @{$_}} (sort {${$a}[0] <=> ${$b}[0]} map
{[split /_/]} @nums ));
All in a one liner!!!
###########
10_20051207
55_20051202
56_20051203
57_20051204
59_20051206
61_20051208
62_20051208
63_20051208
64_20051209
65_20051209
66_20051210
67_20051211
68_20051212
69_20051213
70_20051214
101_20051205
--
REMEMBER THE WORLD TRADE CENTER ---=< WTC 911 >=--
"...ne cede malis"
00000100
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
