perlÒ»¸ö¼òµ¥mysql²Ù×÷µÄС³ÌÐò

#!/usr/bin/perl
use Mysql;
print "Content-type:
text/html \n\n";
# MySQL
ÅäÖñäÁ¿
$host = "localhost";
$database
= "testdb";
$tablename = "testtable";
$user = "username";
$pw =
"password";
# PERL MYSQL CONNECT()
$connect = Mysql->connect($host,
$database, $user, $pw);
# SELECT
DB
$connect->selectdb($database);
# ¶¨ÒåMySQL²éѯ
$myquery = "INSERT
INTO
$tablename (id, product, quantity)
VALUES
(DEFAULT,'pineapples','15')";
# Ö´Ðвéѯ
$execute =
$connect->query($myquery);
# Ó°ÏìÐÐ
$affectedrows =
$execute->affectedrows($myquery);
# ×îºóÒ»¸öInsertµÄID
$lastid =
$execute->insertid($myquery);
print $affectedrows."<br
/>";
print $lastid."<br />";