Hi, 

  I have a simple script that reads a hashDB  file into a tied hash. 
When I do a Dumper , I get the hash values , but when I pring a value
nothing is printed ... what am I doing wrong here ? 


-------------------------------------------- 
use DB_File; 
use strict; 
use Data::Dumper; 

my %hash; 
my $DATAFILE = "sample.db"; 
tie %hash,  'DB_File', $DATAFILE, O_RDONLY , 0666 , $DB_HASH; 
print Dumper([\%hash]); 
print "VALUE for a is '" . $hash{a}."' \n"; 

--------------------------------------------------------- 


OUTPUT 
------------------------------------------------------- 
$VAR1 = [ 
          { 
            'b' => '2', 
            'a' => '1', 
            'c' => '3' 
          } 
        ]; 
VALUE for a is '' 
--------------------------------------------------------- 


Thanks 
Ram 


----------------------------------------------------------
Netcore Solutions Pvt. Ltd.
Website:  http://www.netcore.co.in
Spamtraps: http://cleanmail.netcore.co.in/directory.html
----------------------------------------------------------

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to