@out = map { $_->[0] }
sort { $a->[1] <=> $b->[1] }
map { [ $_, length $_ ] }
@in; |
| Forward to OO Flex
Back to AUTOLOAD and closures Up to Stages of a Perl Programmer section index Up to YAPC 2000 course index |
YAPC 2000: Stages of a Perl Programmer - 40
Copyright © 2000, Nathan Torkington
|