場合によっては、別のスクリプトにリダイレクトし、すべてのクエリ パラメータを送信する必要がある Perl スクリプトがあります。クエリ パラメータには大量のデータが含まれる可能性があるため、乱雑に見える POST 文字列を作成して追加したくありません。いくつかの調査に基づいて、私はこれを思いつきました:
use strict;
use warnings;
use CGI;
use URI;
my $query = CGI->new();
my %lots_of_data = $query->Vars;
my $uri = URI->new('http://whatever.com/new_script.pl');
$uri->query_form(\%lots_of_data);
print $query->redirect(-location => $uri);
質問:
- それはうまくいきますか?
- リダイレクトに -nph または -status パラメータを使用する必要がありますか?
- new_script.pl は、送信されたデータを独自の CGI クエリ オブジェクトにどのように入力するのでしょうか? それとも、魔法のようにデータがクエリ オブジェクトに格納されるのでしょうか?
どうもありがとう!