Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl -w

use strict;
...

print "g: $_ is $g{$_}\n" for keys %g;
print "h: $_ is $h{$_}\n" for keys %h;
  2. or download this
    g: foo bgcolor is 12
g: bar bgcolor is 6
h: BAR is 24
h: FOO is 18