perl一个简单mysql操作的小程序

最新推荐文章于 2023-09-23 23:54:45 发布

原创最新推荐文章于 2023-09-23 23:54:45 发布 · 459 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#mysql #perl #database #insert #user

本文提供了一个使用Perl进行MySQL数据库操作的示例代码，演示了如何连接数据库、执行插入操作并获取受影响行数及最后插入的ID。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!/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 />";