Sort a list of object identifiers: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: finished the cut-n-paste.) |
m (→{{header|Perl}}: fix comparison operator) |
||
| Line 373: | Line 373: | ||
my @sorted = |
my @sorted = |
||
map { $_->[0] } |
map { $_->[0] } |
||
sort { $a->[1] |
sort { $a->[1] cmp $b->[1] } |
||
map { [$_, join '', map { sprintf "%8d", $_ } split /\./, $_] } |
map { [$_, join '', map { sprintf "%8d", $_ } split /\./, $_] } |
||
@OIDs; |
@OIDs; |
||