Help for this page

Select Code to Download


  1. or download this
    $ perl stat1.pl
files are ./causes2.txt ./fears1.pl ./fears1.pl~ ./fears2.txt ./stat1.
+pl ./stat1.pl~ ./template_stuff
240
...
key: ./stat1.pl~, value: HASH(0xa17581c)
key: ./template_stuff, value: HASH(0xa22a8d4)
$
  2. or download this
    $ cat stat1.pl
use strict;
use warnings;
...
my $hashref = \%stat;
print_hash ( $hashref );
$