Question

我有一个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的{{1}}个命令最后将其重定向到index2.html。我试图手动检查所有其他系统命令及其输出，它们工作。我无法检索文本值并将其传递，并且重定向也不起作用。浏览器重定向到index2.html并提供404.我目前正在耗尽时间。简单的答案将不胜感激。

修改

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

Answer 1

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

使用perl将一个html页面重定向到另一个页面

1 个答案: