在Perl CGI中手動添加參數

Question

我編寫了一個cgi腳本，它執行以下操作：

#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:cgi-lib :standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

my $q = new CGI;
print $q->header;
print "<center>";
print $q->h1('Let\'s do something!');
print "</center>";
print $q->start_html(-title => 'Do something');
print $q->end_form;

our %in;
&ReadParse(%in);
my @keys = keys %in;
my @values = values %in;
main();

sub main{
    print "<center>";
    my $q0 = new CGI;
    print $q0->start_form(
        -name    => 'sniff_button',
        -method  => 'POST',
        -enctype => &CGI::URL_ENCODED,
    );
    print $q0->submit(
        -name     => 'button',
        -value    => 'Do something',
    );
    print $q0->end_form;
    print "</center>";
}

我想要做的是手動添加一些參數，因為下一個取決於前一個狀態，而不僅取決於當前狀態（因此我必須傳遞兩次參數。）。
我已經用param（）和URI完成了工作，但是它們都不起作用。 有什么建議嗎？

Answer 1

答案是隱藏字段：

sub main{
    print "<center>";
    my $q0 = new CGI;
    print $q0->start_form(
        -name       => 'sniff_button',
        -method     => 'POST',
        -enctype    => &CGI::URL_ENCODED,
    );
    print $q0->hidden(
        -name       => 'machine_state',
        -default    => 'some_previous_value');
    print $q0->submit(
        -name   => 'button',
        -value  => 'Do something',
    );
    print $q0->end_form;
    print "</center>";
}