使用perl脚本下载文件时出现403错误

Question

我是perl脚本的新手，我正在尝试使用以下代码编写程序从apache服务器下载tar文件：

use warnings;
use strict;
use LWP::Simple;

my $url = "http://gstreamer.freedesktop.org/src/gst-plugins-good/gst-plugins-good-1.2.2.tar.xz";
my $file ="gst-plugins-good-1.2.2.tar.xz";
my $rc = getst

ore($url, $file) ;
print($rc);

但我得到403 error。我不知道为什么。我试过很多事情，比如用户代理发送请求。但它不起作用。任何形式的帮助将不胜感激。

Answer 1

“getst”和“ore”之间有额外的空格......：

use warnings;
use strict;
use LWP::Simple;

my $url = "http://gstreamer.freedesktop.org/src/gst-plugins-good/gst-plugins-good-1.2.2.tar.xz";
my $file ="gst-plugins-good-1.2.2.tar.xz";
my $rc = getstore($url, $file);
print($rc);

此处执行此代码将返回200（OK）代码...