Perl cgi更新两个不同文件中的值

Question

我对perl有疑问。文件中有一个值，例如file.cgi，值为：

red = 1;

还有另一个文件名file2.cgi，其值为：

red = 2;

如何替换这两个文件之间的值？这意味着file.cgi中的值也将更新为2。任何人都可以帮助我吗？

Answer 1

您可以使用CGI.pm参数方法从POST或GET参数中获取值。

http://ods.com.ua/win/eng/program/Perl5Unleashed/ch22.phtml

在您的表单中，您应该执行以下操作：

在$ file2.cgi中：

#print other stuff like header first
print <<EOS;
<form action="file.cgi">
  <input type="hidden" name ="red" value="$red">
  #other form elements
  <INPUT TYPE="Submit" VALUE="Do">
</form>
EOS

在file.cgi中

my $q = CGI->new; 
my $red = $query->param('red');
print $q->header, # create the HTTP header
      $q->start_html('hello world'), # start the HTML
      $q->h2("\nCurrent \$red: $red\n"), # level 1 header
      $q->end_html; # end the HTML