Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -l
#
...
   keys %sections;

print for @sortedKeys;
  2. or download this
    DMA
BKS
...
FST
MRA
MSU
  3. or download this
    my %specials = (
   DMA => 2,
...

   map  { [$_, exists $specials{$_} ? $specials{$_} : 0] }
   keys %sections;