Sort a list of object identifiers: Difference between revisions
Sort a list of object identifiers (view source)
Revision as of 16:54, 5 September 2016
, 7 years ago→{{header|Perl}}: fix comparison operator
m (→{{header|REXX}}: finished the cut-n-paste.) |
m (→{{header|Perl}}: fix comparison operator) |
||
Line 373:
my @sorted =
map { $_->[0] }
sort { $a->[1]
map { [$_, join '', map { sprintf "%8d", $_ } split /\./, $_] }
@OIDs;
|