Perl CGI scripting

jmc1987 · 04-14-2012, 02:35 PM

I am playing around with perl cgi scripting and now I have came to an issue I can't get around.

Error message:

Quote:

username@server.com [~/public_html/cgi-bin]# ./register.cgi
Content-Type: text/html; charset=ISO-8859-1

Use of uninitialized value in exists at ./register.cgi line 19.
AnyDBM_File doesn't define an EXISTS method at ./register.cgi line 19

Here is the code

PHP Code:



#!/usr/bin/perl -w

use strict;
use Digest::MD5 qw(md5_hex);
use CGI qw(:standard);


print header;
my $username = param('username');
my $first_name = param('first_name');
my $last_name = param('last_name');
my $email = param('email');
my $passwd = md5_hex(param('passwd'));



my %userinfo;
dbmopen (%userinfo,"/home/username/public_html/testing/userdata", 0644) || die "Cannot open Database $!";
if (exists $userinfo{$username}){
    print "<p>Username Exist! Registration FAILED!</p>";
}
else {
    $userinfo{$username}="$username $first_name $last_name $email $passwd";
    print "Registration Successful!";
    print "<p>Thank you for registering!</p>";
}

dbmclose(%userinfo);

So why would EXISTS not be difined?

pan64 · 04-15-2012, 04:18 AM

dbmopen ties the hash userinfo to the database, but you have not set how to handle. It assumes AnyDBM_File which is a dummy framework, so exists is not implemented.

So inserting use DB_File will solve it, but I'm not really sure this is the correct one.

PHP Code:



#!/usr/bin/perl -w 
 
use strict; 
use Digest::MD5 qw(md5_hex); 
use CGI qw(:standard); 
use DB_File;                    # <<== add this 
...

jmc1987 · 04-15-2012, 04:40 AM

Quote:

Originally Posted by pan64

dbmopen ties the hash userinfo to the database, but you have not set how to handle. It assumes AnyDBM_File which is a dummy framework, so exists is not implemented.

So inserting use DB_File will solve it, but I'm not really sure this is the correct one.

PHP Code:



#!/usr/bin/perl -w

use strict;
use Digest::MD5 qw(md5_hex);
use CGI qw(:standard);
use DB_File;                    # <<== add this
...

Okay thanks alot I'll see if I can work that out.