1

我有一个 html 表单

<form id="branch" method="get" action="/x/local/.../perl_code.pl">

Branch Name : <input type="text" name="textBox">

<input type="submit" value="Generate">
</form>

在 perl_code.pl 我有这个

use strict;
use warnings;

use CGI qw(:standard);
my $value = uc(param('textBox'));
system "perl /x/local/.../perl_CODE21.pl $value";
#other system commands that work and output the index2.html
print redirect(-url=>'http://server.com:8080/project_name/index2.html');

我最终想要做的是，从文本框中获取输入以index1.html检索值perl_code并执行一些system打印出来的命令，index2.html最后将其重定向到index2.html. 我试图手动检查所有其他系统命令及其输出，它们可以工作。我无法检索文本值并传递它，并且重定向也不起作用。浏览器重定向到perl_code.pl并给出 404。我目前的时间不多了。简单的答案将不胜感激。

编辑：

这是一个 servlet 程序，因此也建议对 web.xml 进行任何修改（如果有）。

4

1 回答 1

3

输出到标准输出后，您无法重定向。重定向或打印，而不是两者。检查您的system电话是否对标准输出没有任何作用；甚至更好的是，将其标准输出重定向到以防万一（例如/dev/null）。

于 2013-08-15T01:08:55.420 回答