Question

嗨大家好我正在尝试使用2个提交按钮进行简单的CGI，如果按下它们，它们会在数据库上执行某些操作。我仍然知道我错过了一些东西，因为我似乎无法让它发挥作用。

HTML

<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<title></title>
</head>
<body>
<center>
<form action="submit.pl" method="POST">
<input type="submit" name="Inicio" value="Inicio" id="Inicio" Inicio />
<input type="submit" name="Finaliza" value="Finaliza" id="Finaliza" Finaliza />
</form>
</center>
</body>
</html>

submit.pl

#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use CGI;

my $q = CGI->new;
my $dsn = "DBI:mysql:database=sms;host=10.0.0.1";
my $dbh = DBI->connect($dsn,"user","password123");


if ($q->param('Inicio')) 
    my $query = "insert into comienzo_programa (fecha, hora_inicio) values (CURDATE(),     CURTIME())";
$dbh->do($query);
} elsif ($q->param('Finaliza')) {
     my $query = "insert into comienzo_programa (hora_fin) values (CURTIME()) where   fecha=CURDATE()"; 
$dbh->do($query);
}

我想知道我做错了什么。谢谢。

Answer 1

你的＆lt; form＆gt;在＆lt; head＆gt;中，而不是＆lt; body＆gt;，它看起来很奇怪。

来自HTML的简单Perl CGI脚本

1 个答案: