Help for this page

Select Code to Download


  1. or download this
    use Data::Dumper;

...
}
print( Dumper ( %{$free_table} ) );
  2. or download this
    unless ( -r "$repository_root/free/freetext.mldbm" )
       { %free_table = (); }
...
$free_table = \%free_table;
&build_data_structure_as_above(@some_params);
print( Dumper ( %free_table} );
  3. or download this
    unless ( -r "$repository_root/free/freetext.mldbm" )
       { %free_table = (); }
...
&build_data_structure_as_above(@some_params);
%free_table = %{$free_table}
print( Dumper ( %free_table} );