Sort a list of object identifiers: Difference between revisions

From Rosetta Code
Content added Content deleted
No edit summary
No edit summary
Line 53: Line 53:
# 17 | .1.3.6.1.4.1.11150.3.4.0.11 |
# 17 | .1.3.6.1.4.1.11150.3.4.0.11 |
# 18 | .1.3.6.1.4.1.11150.3.4.0.21 |
# 18 | .1.3.6.1.4.1.11150.3.4.0.21 |


=={{header|Perl}}==

<lang perl>

#!/usr/bin/perl

###--------------------------
### Sort: -OID - Numeric
### Bert Mariani 2016-07-07
###--------------------------

@arrayOID = () ;
@arrayOIDSorted = () ;

@arrayOID =
(
".1.3.6.1.4.1.11.2.17.19.3.4.0.10",
".1.3.6.1.4.1.11150.3.4.0.2",
".1.3.6.1.4.1.11.2.17.19.3.4.0.19",
".1.3.6.1.4.1.11150.3.4.0.1",
".1.3.6.1.4.1.11.2.17.19.3.4.0.22",
".1.3.6.1.4.1.11.2.17.19.3.4.0.2",
".1.3.6.1.4.1.11150.3.4.0.11",
".1.3.6.1.4.1.11.2.17.19.3.4.0.1",
".1.3.6.1.4.1.11.2.17.3773.0.2",
".1.3.6.1.4.1.11.2.17.19.2.0.79",
".1.3.6.1.4.1.11150.3.4.0.21",
".1.3.6.1.4.1.11.2.17.19.2.0.9",
".1.3.6.1.4.1.11.2.17.19.3.4.0.25",
".1.3.6.1.4.1.11.2.17.19.3.4.0.32",
".1.3.6.1.4.1.11.2.17.19.3.4.0.4",
".1.3.6.1.4.1.11.2.17.19.3.4.0.31",
".1.3.6.1.4.1.11.2.17.19.3.4.0.3",
".1.3.6.1.4.1.11.2.17.3773.0.1"
);

### One big long line ... made readable
@arrayOIDSorted =
map { $_->[0] }
sort { $a->[1] cmp $b->[1] }
map { [ $_,
join '', map { sprintf("%8d",$_) }
split( /\./, $_)
]
}
@arrayOID;

print "\nAfter OID Sort \n\n";
$ptrN = 0;
$entry = 1;

while ( $arrayOIDSorted[$ptrN] )
{
print "$entry | $arrayOIDSorted[$ptrN] |\n" ;
$entry++;
$ptrN++;
}

print "\nEnd OID Sort \n\n";

###=========================================
#
# After OID Sort
#
# 1 | .1.3.6.1.4.1.11.2.17.19.2.0.9 |
# 2 | .1.3.6.1.4.1.11.2.17.19.2.0.79 |
# 3 | .1.3.6.1.4.1.11.2.17.19.3.4.0.1 |
# 4 | .1.3.6.1.4.1.11.2.17.19.3.4.0.2 |
# 5 | .1.3.6.1.4.1.11.2.17.19.3.4.0.3 |
# 6 | .1.3.6.1.4.1.11.2.17.19.3.4.0.4 |
# 7 | .1.3.6.1.4.1.11.2.17.19.3.4.0.10 |
# 8 | .1.3.6.1.4.1.11.2.17.19.3.4.0.19 |
# 9 | .1.3.6.1.4.1.11.2.17.19.3.4.0.22 |
# 10 | .1.3.6.1.4.1.11.2.17.19.3.4.0.25 |
# 11 | .1.3.6.1.4.1.11.2.17.19.3.4.0.31 |
# 12 | .1.3.6.1.4.1.11.2.17.19.3.4.0.32 |
# 13 | .1.3.6.1.4.1.11.2.17.3773.0.1 |
# 14 | .1.3.6.1.4.1.11.2.17.3773.0.2 |
# 15 | .1.3.6.1.4.1.11150.3.4.0.1 |
# 16 | .1.3.6.1.4.1.11150.3.4.0.2 |
# 17 | .1.3.6.1.4.1.11150.3.4.0.11 |
# 18 | .1.3.6.1.4.1.11150.3.4.0.21 |
#
# End OID Sort
#===========================================

/<lang perl>

Revision as of 20:29, 7 July 2016

Sort by OID numbers.

OID - Object Identifiers are used in Network data These numbers can vary in length, and have a dot "." between them. The individual number can be of different number of digits also.

Example:

==========================

INPUT

@arrayOID = ( 

 ".1.3.6.1.4.1.11.2.17.19.3.4.0.10",
 ".1.3.6.1.4.1.11150.3.4.0.2",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.19",
 ".1.3.6.1.4.1.11150.3.4.0.1",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.22",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.2",
 ".1.3.6.1.4.1.11150.3.4.0.11",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.1",
 ".1.3.6.1.4.1.11.2.17.3773.0.2",
 ".1.3.6.1.4.1.11.2.17.19.2.0.79",
 ".1.3.6.1.4.1.11150.3.4.0.21",
 ".1.3.6.1.4.1.11.2.17.19.2.0.9",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.25",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.32",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.4",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.31",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.3",
 ".1.3.6.1.4.1.11.2.17.3773.0.1"

);

============================

OUTPUT - Correctly Sorted

  1. 01 | .1.3.6.1.4.1.11.2.17.19.2.0.9 |
  2. 02 | .1.3.6.1.4.1.11.2.17.19.2.0.79 |
  3. 03 | .1.3.6.1.4.1.11.2.17.19.3.4.0.1 |
  4. 04 | .1.3.6.1.4.1.11.2.17.19.3.4.0.2 |
  5. 05 | .1.3.6.1.4.1.11.2.17.19.3.4.0.3 |
  6. 06 | .1.3.6.1.4.1.11.2.17.19.3.4.0.4 |
  7. 07 | .1.3.6.1.4.1.11.2.17.19.3.4.0.10 |
  8. 08 | .1.3.6.1.4.1.11.2.17.19.3.4.0.19 |
  9. 09 | .1.3.6.1.4.1.11.2.17.19.3.4.0.22 |
  10. 10 | .1.3.6.1.4.1.11.2.17.19.3.4.0.25 |
  11. 11 | .1.3.6.1.4.1.11.2.17.19.3.4.0.31 |
  12. 12 | .1.3.6.1.4.1.11.2.17.19.3.4.0.32 |
  13. 13 | .1.3.6.1.4.1.11.2.17.3773.0.1 |
  14. 14 | .1.3.6.1.4.1.11.2.17.3773.0.2 |
  15. 15 | .1.3.6.1.4.1.11150.3.4.0.1 |
  16. 16 | .1.3.6.1.4.1.11150.3.4.0.2 |
  17. 17 | .1.3.6.1.4.1.11150.3.4.0.11 |
  18. 18 | .1.3.6.1.4.1.11150.3.4.0.21 |


Perl

<lang perl>

  1. !/usr/bin/perl
      1. --------------------------
      2. Sort: -OID - Numeric
      3. Bert Mariani 2016-07-07
      4. --------------------------

@arrayOID = () ; @arrayOIDSorted = () ;

@arrayOID = ( 

 ".1.3.6.1.4.1.11.2.17.19.3.4.0.10",
 ".1.3.6.1.4.1.11150.3.4.0.2",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.19",
 ".1.3.6.1.4.1.11150.3.4.0.1",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.22",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.2",
 ".1.3.6.1.4.1.11150.3.4.0.11",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.1",
 ".1.3.6.1.4.1.11.2.17.3773.0.2",
 ".1.3.6.1.4.1.11.2.17.19.2.0.79",
 ".1.3.6.1.4.1.11150.3.4.0.21",
 ".1.3.6.1.4.1.11.2.17.19.2.0.9",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.25",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.32",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.4",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.31",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.3",
 ".1.3.6.1.4.1.11.2.17.3773.0.1"

); 

### One big long line ... made readable
@arrayOIDSorted =                                                       
        map { $_->[0] }                                                     
              sort { $a->[1] cmp $b->[1] }                                    
                     map { [ $_,                                                  
                             join , map { sprintf("%8d",$_) } 
                             split( /\./, $_) 
                           ] 
                         } 
                     @arrayOID;      



   print "\nAfter OID Sort \n\n";
   $ptrN  = 0;   
   $entry = 1;

   while ( $arrayOIDSorted[$ptrN] )
   { 
      print "$entry | $arrayOIDSorted[$ptrN] |\n" ;
      $entry++;
      $ptrN++;
   }

   print "\nEnd OID Sort \n\n";
      1. =========================================
  3. After OID Sort
  5. 1 | .1.3.6.1.4.1.11.2.17.19.2.0.9 |
  6. 2 | .1.3.6.1.4.1.11.2.17.19.2.0.79 |
  7. 3 | .1.3.6.1.4.1.11.2.17.19.3.4.0.1 |
  8. 4 | .1.3.6.1.4.1.11.2.17.19.3.4.0.2 |
  9. 5 | .1.3.6.1.4.1.11.2.17.19.3.4.0.3 |
  10. 6 | .1.3.6.1.4.1.11.2.17.19.3.4.0.4 |
  11. 7 | .1.3.6.1.4.1.11.2.17.19.3.4.0.10 |
  12. 8 | .1.3.6.1.4.1.11.2.17.19.3.4.0.19 |
  13. 9 | .1.3.6.1.4.1.11.2.17.19.3.4.0.22 |
  14. 10 | .1.3.6.1.4.1.11.2.17.19.3.4.0.25 |
  15. 11 | .1.3.6.1.4.1.11.2.17.19.3.4.0.31 |
  16. 12 | .1.3.6.1.4.1.11.2.17.19.3.4.0.32 |
  17. 13 | .1.3.6.1.4.1.11.2.17.3773.0.1 |
  18. 14 | .1.3.6.1.4.1.11.2.17.3773.0.2 |
  19. 15 | .1.3.6.1.4.1.11150.3.4.0.1 |
  20. 16 | .1.3.6.1.4.1.11150.3.4.0.2 |
  21. 17 | .1.3.6.1.4.1.11150.3.4.0.11 |
  22. 18 | .1.3.6.1.4.1.11150.3.4.0.21 |
  24. End OID Sort
  25. ===========================================

/<lang perl>

Retrieved from "https://rosettacode.org/wiki/Sort_a_list_of_object_identifiers?oldid=268826"