I'm trying to get the perl script below to write to my database. It didn't work and
the error log showed that it got hung up at line 8 (use DBI). any ideas why?
--------------------------------------------------------------------------------
#!/usr/bin/perl -w
my $name = 'mel';
my $email = '[EMAIL PROTECTED]';
my $score = '10';
use strict;
use CGI qw(:standard);
use DBI;
# change undef(s) to username and password if required
my $dbh->connect('DBI:mysql:afp','root', 'wolly');
my $sth=$dbh->prepare("
INSERT INTO afplist
VALUES (?,?,?)
");
$sth->execute($name, $email, $score) || die "execute insert failed";
$sth->finish();
............................................
[EMAIL PROTECTED]
research and development
www.digitalorganism.com
t. (410) 342 - 1162
f. (410) 342 - 1164
............................................
