mysql - 无法使用 Perl 插入 MySQL-6ren

mysql - 无法使用 Perl 插入 MySQL

转载作者：太空宇宙更新时间：2023-11-03 10:44:35

25

4

我是 Perl 的新手，我一直在尝试使用这个简单的程序将值插入数据库。我有两个文件，一个将表单值发送到 Perl 文件的 HTML 文件。但是我无法执行任何插入或检索；我总是得到一个空白页面作为输出。

HTML 文件:

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
    <head>
        <title>8th program</title>
    </head>
    <body>
        <form action="http://localhost:81/cgi-bin/8.pl" method="post">
            NAME:<input type="text" name="name"><br>
            AGE:<input type="text" name="age"><br>
            <input type="submit" value="submit">
        </form>
    </body>
</html>

Perl 文件:

#!"C:\xampp\perl\bin\perl.exe"

print "Content-Type:text/html\n\n";

use CGI ':standard';
use DBI;

print "<html><head><title>insert</title></head>";

$dbh  = DBI->connect( "DBI:mysql:test", "root", " " );

$name = param( "name" );
$age  = param( "age" );

$qh   = $dbh->prepare( "insert into student values('$name','$age')" );
$qh->execute();

$qh = $dbh->prepare( "select * from student" );
$qh->execute();

print "<table border size=1>
       <tr>
       <th>Name</th>
       <th>Age</th>
       </tr>";

while ( ( $name, $age ) = $qh->fetchrow() ) {
    print "<tr><td>$name</td>
 <td>$age</td></tr>";
}

print "</table>";

$qh->finish();

$dbh->disconnect();

print "</html>";

请帮我解决这个问题。

最佳答案

没有 DBI 方法 fetchrow。在这种情况下，您的意思似乎是 fetchrow_array

另外，请注意这几点

在 Windows 系统上，shebang 行将被忽略，除非在那里指定的任何命令开关都将被接受。必须在别处定义 perl 编译器/解释器的路径
您必须始终
```
use strict;
use warnings 'all';
```
在您编写的每个 Perl 程序的顶部，并尽可能靠近其第一个使用点声明每个变量

您应该使用占位符，而不是将参数插入到 SQL 字符串中。比如这样

my $qh = $dbh->prepare( 'INSERT INTO student (name, age) VALUES (?, ?)' );
$qh->execute($name, $age);

调用finish是错误的。 The documentation有这个

Adding calls to "finish" after [a] loop that fetches all rows is a common mistake, don't do it, it can mask genuine problems like uncaught fetch errors.

关于mysql - 无法使用 Perl 插入 MySQL，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/33717281/

25

4

0

文章推荐： mysql - 仅为使用 SQL 缺少这些成绩的学生插入成绩

文章推荐： c++ - 如何根据当前构建配置指定要编译哪些 .cpp 文件？

文章推荐： c++ - Makefile: multiple definition and undefined reference 错误

文章推荐： php - 如何使用codeigniter在mysql中插入多行

java - 无法 Autowiring
我通过 spring ioc 编写了一些 Rest 应用程序。但我无法解决这个问题。这是我的异常(exception): org.springframework.beans.factory.BeanC
java - 无法@Autowire配置
我对 TestNG、Spring 框架等完全陌生，我正在尝试使用注释 @Value通过 @Configuration 访问配置文件注释。我在这里想要实现的目标是让控制台从配置文件中写出“hi”，通过
无法 malloc 然后转到程序顶部
为此工作了几个小时。我完全被难住了。这是 CS113 的实验室。如果用户在程序(二进制计算器)结束时选择继续，我们需要使用 goto 语句来到达程序的顶部。但是，我们还需要释放所有分配的内存。
无法 avformat_open_input .mp3
我正在尝试使用 ffmpeg 库构建一个小的 C 程序。但是我什至无法使用 avformat_open_input() 打开音频文件设置检查错误代码的函数后，我得到以下输出: Error code:
java - 无法 Autowiring
使用 Spring Initializer 创建一个简单的 Spring boot。我只在可用选项下选择 DevTools。创建项目后，无需对其进行任何更改，即可正常运行程序。现在，当我尝试在项目
macos - 无法 brew 链接qt
所以我只是在 Mac OS X 中通过 brew 安装了 qt。但是它无法链接它。当我尝试运行 brew link qt 或 brew link --overwrite qt 我得到以下信息: ton
git - 无法 pull 或提交
我在提交和 pull 时遇到了问题:在提交的 IDE 中，我看到: warning not all local changes may be shown due to an error: unable
gcc - 无法 grep 特定格式的文本
我跑 man gcc | grep "-L" 我明白了 Usage: grep [OPTION]... PATTERN [FILE]... Try `grep --help' for more inf
curl - 无法 CURL 远程文件
我有一段代码，旨在接收任何 URL 并将其从网络上撕下来。到目前为止，它运行良好，直到有人给了它这个 URL: http://www.aspensurgical.com/static/images/a
WireGuard - 无法 ping 服务器或解析域
在过去的 5 个小时里，我一直在尝试在我的服务器上设置 WireGuard，但在完成所有设置后，我无法 ping IP 或解析域。下面是服务器配置 [Interface] Address = 10.
GitLab:无法 fork 我自己的项目
我正在尝试在 GitLab 中 fork 我的一个私有(private)项目，但是当我按下 fork 按钮时，我会收到以下信息: No available namespaces to fork the
javascript - 无法 GET/定义路由
我这里遇到了一些问题。我是 node.js 和 Rest API 的新手，但我正在尝试自学。我制作了 REST API，使用 MongoDB 与我的数据库进行通信，我使用 Postman 来测试我的路
javascript - 无法 AppendChild - 尝试使一个方法在不同的类中附加另一个方法
下面的代码在控制台中给出以下消息: Uncaught DOMException: Failed to execute 'appendChild' on 'Node': The new child el
javascript - 数组被视为对象，无法 NgFor
我正在尝试调用一个新端点来显示数据，我意识到在上一组有效的数据中，它在数据周围用一对额外的“[]”括号进行控制台，我认为这就是问题是，而新端点不会以我使用数据的方式产生它! 这是 NgFor 失败的原
git - 无法 checkout 到无效路径
我正在尝试将我的 Symfony2 应用程序部署到我的 Azure Web 应用程序，但遇到了一些麻烦。推送到远程时，我在终端中收到以下消息 remote: Updating branch 'mas
docker - Minikube具有IP-无法 curl
Minikube已启动并正在运行，没有任何错误，但是我无法 curl IP。我在这里遵循:https://docs.traefik.io/user-guide/kubernetes/，似乎没有提到关闭
linux - 无法 docker 组成任何项目
每当我尝试docker组成任何项目时，都会出现以下错误。我尝试过有和没有sudo 我在这台机器上只有这个问题。我可以在Mac和Amazon WorkSpace上运行相同的容器。 (myslabs)
python - 无法 pip 安装手电筒
我正在尝试 pip install stanza 并收到此消息: ERROR: No matching distribution found for torch>=1.3.0 (from stanza
kubernetes 无法 ping 通其他服务
DNS 解析看起来不错，但我无法 ping 我的服务。可能是什么原因？来自集群中的另一个 Pod: $ ping backend PING backend.default.svc.cluster.l
spring - 无法 Autowiring 字段
我正在使用Hibernate 4 + Spring MVC 4当我开始 Apache Tomcat Server 8我收到此错误: Error creating bean with name 'wel

首页

博学

6Ren·AI

商城

mysql - 无法使用 Perl 插入 MySQL