#!/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 />";
perl一个简单mysql操作的小程序
最新推荐文章于 2021-02-07 14:23:36 发布