Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
          '14' => 1,
          '15' => 1
        };
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
          '14' => 6,
          '15' => 1
        };
  3. or download this
    my @tokens = qw (32 15 4 72 13 28 14);
my $i=0;
my %tokens = map {$_ => $i++}@tokens;