Re^4: while loop question

[adriang]

"exisys" is not good for me at leat for this crrent problem because I use AnyDBM_File:

AnyDBM_File doesn't define an EXISTS method at /gd/Development/Perl/Pr
+actice/www/cgi-bin/submitcoffee.pl line 32.

[SuicideJunkie]

"EXISTS", "exisys" and "exists" are all different words.

exists is not a method. It is a basic built-in perl function. It is completely and utterly unrelated to AnyDBM_File. It tells you if a key exists in a hash; that is what you want, no need for looping.

Read the documentation linked by aitap for details.

[aitap]

I can reproduce this error message: when I tie a hash using AnyDBM_File, it selects NDBM_File, which implements Tie::Hash without a sub EXISTS { ... }, so exists on the tied hash does not work.

However, defined replaces exists in this case, because NDBM_File cannot store an undef in the database:

#!/usr/bin/perl
use Data::Dumper;
use Fcntl;
use AnyDBM_File;
die $! unless tie %h, 'AnyDBM_File', 'test.db', O_RDWR()|O_CREAT(), 06
+00;
undef $h{'b'}; # try to store an undef
print Dumper(\%h); # empty string is stored instead
print "still defined\n" if defined $h{'b'};
# we can confirm its existence:
#  if it's defined, it does exist
#  and no undefs exist there
delete $h{'b'}; # delete works as expected
print "does not exist\n" unless defined $h{'b'};
print Dumper(\%h);
__END__
$VAR1 = {
          'b' => ''
        };
still defined
does not exist
$VAR1 = {};

So using defined turns out to be the right decision.