簡單的Perl的CGI腳本從HTML

嗨夥計我試圖做一個簡單的CGI 2提交按鈕，如果你按下它們在數據庫上做一些事情。不過我知道我錯過了一些東西，因爲我似乎無法得到它的工作。簡單的Perl的CGI腳本從HTML

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); 
}

我不知道我做錯了。謝謝。

來源

2012-12-22 Jorge Sanchez

where fecha ='CURDATE（）'，刪除單引號。 – SaidbakR

在提交按鈕之前，您有一個''。 – duskwuff

現在它開始形成。它現在顯示腳本，一旦我點擊按鈕。謝謝。 –

你<形式>是在<頭>，而不是<體>，看起來奇特。

來源

2012-12-22 02:25:30

固定，在崗位和現場。但是，沒有運氣。 –

簡單的Perl的CGI腳本從HTML

回答

相關問題