从Perl脚本调用一个URL

Question

我有一个Perl脚本，其中包含一些调用一个URL的代码。指向servlet的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;

请帮助我，以便我可以拨打网址。

Answer 1

'wget '.$url;

如果你想让它被执行，

应该是反叛

`wget $url`

Answer 2

在您的代码中：

'wget '.$url;

只是一个字符串。

请参考this执行外部命令。

Answer 3

你可以使用`wget $url`而不是你拥有的东西，这样可以解决它。但是，我建议使用system调用，因为这是更好的做法：

system("wget",$url);

但是，如果由于某种原因需要输出，那么最好使用反引号并像这样捕获它：

my $response = `wget $url`;