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を実行することです。他のすべてのシステムコマンドとその出力を手動で検査しようとしましたが、それらは機能します。テキスト値を取得して渡すことができず、リダイレクトも機能しません。ブラウザは にリダイレクトし、404 を返します。現在時間がありません。簡単な回答をいただければ幸いです。index2.htmlindex2.htmlperl_code.pl

編集：

これはサーブレット プログラムであるため、web.xml に変更があればそれも提案してください。

4

1 に答える 1

3

出力後に stdout にリダイレクトすることはできません。両方ではなく、リダイレクトまたは印刷のいずれかです。system呼び出しが stdout に対して何もしないことを確認してください。またはさらに良いことに、その stdout を念のため何かにリダイレクトします (のように/dev/null)。

于 2013-08-15T01:08:55.420 に答える