0

我有一个 html 表，每行有 2 个单选按钮和一个保存按钮。我想在保存时存储单选按钮的值，并在重新访问页面时预设值。这是我编写的html代码

<form action='table_extract.cgi' method = 'get'>
        <td><input type='radio' name='signoff' value = 'approve'>Approve<br>
        <input type='radio' name='signoff' value='review'>Review</td>
    <td><input type='submit' name='button' value='Save'/></td></form>

这就是 table_extract.cgi 中的内容

#!usr/local/bin/perl
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
use warnings;
print <<END;
Content-Type: text/html; charset=iso-8859-1

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
END

my $regfile = 'signoff.out';
my $sign;
$sign = param('signoff');

open(REG,">>$regfile") or fail();
print REG "$sign\n";
close(REG);
print "param value :", param('signoff');
print <<END;
<title>Thank you!</title>
<h1>Thank you!</h1>
<p>signoff preference:$sign </p>
END

sub fail {
   print "<title>Error</title>",
   "<p>Error: cannot record your registration!</p>";
  exit; }

这只是问题的第一部分。我无法在控制台或 poll.out 中找到任何输出。读取值后，我需要将值预设到用户在上次访问中保存的单选按钮中。

4

1 回答 1

0

问题出在 HTML 中，您的提交按钮有两个type属性。当我修复这个时，表格对我有用。

您正在做太多工作来保存表单。请参阅文档中的将脚本状态保存到文件一章。

于 2013-07-30T23:58:04.627 回答