perl - Perl スクリプトから 1 つの URL を呼び出す

Question

1 つの URL を呼び出すコードを含む Perl スクリプトが 1 つあります。url を通過するパラメーターに基づいて、データベースにデータを格納するためのサーブレットを指す URL。以下のコードを使用していましたが、url の呼び出しに失敗し、データベースにデータを格納できませんでした。

#!/appl/teamsite/iw-perl/bin/iwperl

for (@ARGV) { printf "%d %s\n", $i++, $_};
my $environment=$ARGV[0];
my $jobid = $ARGV[1];
my $taskID = $ARGV[2];
my $workArea= $ARGV[3];
my $jobDocument = $ARGV[4];

my $url = "http://localhost:7001/JCreationServlet?command=build"."&environment=".$ARGV[0]."&jobID=".$ARGV[1]."&taskID=".$ARGV[2]."&workArea=".$ARGV[3]."&jobDocument=".$ARGV[4];

print "Url is $url\n";

'wget '.$url;

URLを呼び出せるように助けてください。

Answer 1

'wget '.$url;

実行したい場合は、バックティックにする必要があります

`wget $url`

Answer 2

あなたのコードでは：

'wget '.$url;

単なる文字列です。

外部コマンドを実行するには、これを参照してください。

Answer 3

あなたが持っているものの代わりに ` ` を使うことができwget $url、これはそれを修正します。ただし、システムコールを使用することをお勧めします。

system("wget",$url);

ただし、何らかの理由で出力が必要な場合は、バッククォートを使用して次のようにキャプチャすることをお勧めします。

my $response = `wget $url`;