1

こんにちは、私は 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);
}

私は何が間違っているのだろうか。ありがとうございました。

4

1 に答える 1

1

あなたの <form> は <body> ではなく <head> にありますが、これは奇妙に見えます。

于 2012-12-22T02:25:30.783 に答える