Front page | perl.beginners |
Postings from March 2002
this works nicely:
use Data::Dumper;
my ( $hash_ref, $new_hash );
my $hash_file = 'test.hash';
{ #block to control scope
local ($/) = undef; #make this change local so as not to screw up anything else
open SOURCE, $hash_file or die "Can't open file: $!";
$hash_ref = eval <SOURCE>;
die $@ if $@;
close SOURCE;
}
print Dumper($hash_ref);
eval Data::Dumper->Dump([$hash_ref], [qw(new_hash)]);
print "$new_hash->{key_name}\n"; #prints the cognate value of key_name from the hash
im gonna forward some of this stuff to the maintainer of perldoc Data::Dumper!
thanks!
:o)
martin
Thread Previous