Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    use Data::Dumper;
    ...
    
    print "\nFinal Hash:\n";
    print Dumper \%index;
    
  2. or download this
    $VAR1 = {
              'node-cat-bat-bat-bat' => 5,
    ...
              'node-cat-cat' => 3,
              'node' => 1
            };