Prev Next Index | Page 15/16 |
sub { return map $_->[0], sort { $a->[1] cmp $b->[1] || $a->[2] <=> $b->[2] } map [ $_, do{ my ($val) = m((?-xism:^foo(\w+))) ; $val }, do{ my ($val) = m((?-xism:(\d+)$)) ; $val } ], @_ ; }
Prev Next Index Contents | © 2011 Uri Guttman | Page 15/16 |