Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
    }
    print "\n";
}
  2. or download this
    a => 1:b => 2:c => 3:
a => 1:b => 2:c => 3:
...
a => 1:b => 2:c => 3:
a => 2:b => 1:c => 3:
  3. or download this
    my %seen = map{join(":", values %{$_}), $_} @array;
  4. or download this
    my %seen = map{join(":", keys %{$_}), $_} @array;