perl 多表单问题答案

【问题标题】：perl multiple forms problemperl 多表单问题
【发布时间】：2011-08-17 04:11:49
【问题描述】：

大家好！我第一次开发 Perl Web 应用程序。我有一个包含 2 个表单的页面，提交时每个表单都在单独的其他页面上。问题如下：提交第二个表单时，它会执行第一个表单操作。参数通过 Get 方法发送，并且 url 包含来自两种形式的输入字符串。这是代码。

#!C:\Perl\bin\perl

use DBI;
use DBD::mysql;
 print "content-type: text/html \n\n";
 print '<html>';
 print '<body>';
# DBI CONFIG VARIABLES
$host = "localhost";
$database = "t2";
$port = 3308;
$user = "";
$pw = "";


#DATA SOURCE NAME
$dsn = "dbi:mysql:$database:localhost:3306";

# PERL DBI CONNECT (RENAMED HANDLE)
$conn = DBI->connect($dsn, $user, $pw) or die "Unable to connect: $DBI::errstr\n";

$query = 'SELECT * From book';

$query_handle = $conn->prepare($query);

# EXECUTE THE QUERY
$query_handle->execute();

$query_handle->bind_columns(\$id, \$title ,\$author ,\$price, \$stock);

print '<table border="1">';
print '<thead>';
print '<tr>';
print '<td> Id </td>';
print '<td> title</td>';
print '<td> Author </td>';
print '<td> price</td>';
print '<td> Stock </td>';
print '<td> Buy </td>';

print '</tr>';
print '</thead>';

while($query_handle->fetch()) {



    print '<tr>';
    print '<td>';
    print $id;
    print '<td\>';
    print '<td>';
    print $title;
    print '<td\>';
    print '<td>';
    print $author;
    print '<td\>';
    print '<td>';
    print $price;
    print '<td\>';
    print '<td>';
    print $stock;
    print '<td\>';
    print '<td>';
    if ($stock ne '0') 
    {

        print '<form name="form1" action = "http://localhost/t3/buyBook.pl" method="get">';
        print '<input type="hidden" name="buy_id" value="'.$id.'"';
        print '<input type="submit"  name="buy"  value="Buy"';
        print '<form\>'
    }else
    {
        print '<input type="submit" name="buy" disabled="disabled" value="Buy"';
    }
    print '<td\>';
    print '<tr\>';

} 
print '</table>';

print '<form name="form2" action="http://localhost/t3/search_book.pl" method="get   ">';
print '<br/>';
print 'Search for book by:';
print '<br/>';
print '<input type="radio" name="searchBy" value="Title"> Title <br/>';
print '<input type="radio" name="searchBy" value="Author"> Author <br/>';
print '<input type="text" name="search_book" >';
print '<br/>';
print '<input type="submit" name="search" value="Search">';
print '</form>';

print '<body/>';
print '<html/>';

这是按下 2 个提交按钮中的任何一个时显示的 URL： http://localhost/tema3/buyBook.pl?buy_id=7505&buy_id=2&buy_id=12195&search_book=&search=Search

知道如何解决这个问题吗？安德鲁

【问题讨论】：

标签： perl forms

【解决方案1】：

我认为我们这里的问题是您错误地关闭了标签。这导致第一个<form> “抓取”它下面的所有参数。尝试使用以下方法修复：

print '</form>'; ## this is correct closing tag for a form

</form> 和 <form\> 不是同一个东西。 <form\> 将打开新表单而不是关闭。事实上它不会做任何事情，因为嵌套表单是不允许的。

您还应该在表格单元格和行的末尾使用</td> 和</tr> 标签。

【讨论】：

另外请在脚本的开头加上use strict;。它会让你的生活更轻松。您需要使用my 声明新变量。但它也会减少变量名称输入错误的机会。