Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl

...

print "ID for MORE[foo]: $dat_by_id{$map_more_to_id{foo}}{id}\n";
print "SN for MORE[bar]: $dat_by_id{$map_more_to_id{bar}}{sn}\n";
  2. or download this
    SN for ID[1]:     a
ID for SN[b]:     2
MORE for SN[a]:   foo
ID for MORE[foo]: 1
SN for MORE[bar]: b