Perl: Accessing value from DBM file.

cramer · 08-18-2006, 01:45 PM

I am using the following program to access and IP value stored by the key defined in $user. (a valid one is kimball).

Code:

#!/usr/bin/perl5

print "Username to lookup:  ";
chomp($_=lc(<STDIN>));
$user=$_;

dbmopen(%ip, "useraddr", 0644) || die "Cannot open DBM file: $!";

print "$ip{$user} \n";

dbmclose(%ip);

It doesn't show the value associated with $ip{$user}" even though there is one. Any help appreciated.

david_ross · 08-19-2006, 06:42 AM

Try running a loop to see what the values and keys are to make sure it is valid:

while(($key, $val) = each %ip){
print "'$key' = '$val'\n";
}

Make sure you check for case and extra spaces etc.

cramer · 08-19-2006, 05:00 PM

I ran a 'each' on them, to get the key and the value for each in the hash, it showed up as a valid one.

key=kimball value=192.168.2.101