Я написал 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, но ни один из них не работает. Любой совет?
