"Use of uninitialized value..." reading %array tied to dbm file

[msc0tt]

I access a dbm file by tying it to an associative array (%database). One part of my code looks to see if a specific record exists:
$rec = $database{$key};
If there is no record by that $key, then $rec is assigned "" as expected. Unfortunately, this outputs an annoying error each time it occurs. (I use perl -w).
Any suggestions?
Mike.

 

[TheGenius22]

You can always use this to avoid the annoying message.

if (defined($key)) {
$rec = $database{$key};
}


Hope this helps

 

[Nithos]

You could also use the 'exists' command

ie. $rec = $database{$key} if(exists $database{$key});

Hope this helps


char *p="char *p=%c%s%c;main(){printf(p,34,p,34);}";main(){printf(p,34,p,34);}

 

[msc0tt]

Both functions work -thanks