0

行ごとに2つのラジオボタンと保存ボタンがあるhtmlテーブルがあります。保存時にラジオボタンの値を保存し、ページが再表示されたときに値をプリセットしたい.これは私が書いた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