Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
   } for keys %hash;

print Data::Dumper->Dumpxs( [ \ %hash ], [ qw{ *hash } ] );
  2. or download this
    %hash = (
          'preparation' => {
...
                               'frequency' => 1
                             }
        );
  3. or download this
    ...
while ( <$inFH> )
...

delete $hash{ $_ }->{ seen } for keys %hash;
...