Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
my %hash = map { $_++ } @keys;

warn "Dump " . dump( %hash ) . "\n";
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
    $hash{$_}++;
}
warn "Dump " . dump( %hash ) . "\n";
  3. or download this
    Dump ("c", "d", "a", "b") # first script
Dump ("a", 1, "c", 1, "b", 1, "d", 1) # second script