解密 File::Fetch 错误

Question

我试图在一个简单的脚本中使用 File::Fetch 来下载文件。不幸的是，它出错了，我似乎找不到原因。

use strict;
use warnings;
use File::Fetch;
my $url = 'https://ftp.mozilla.org/pub/firefox/releases/42.0b7/linux-i686/en-US/firefox-42.0b7.tar.bz2';
my $ff = File::Fetch->new(uri => $url);
my $where = $ff->fetch( to => '/tmp' ) or die $ff->error;
print "Downloaded to ".$where."\n";

执行时：

#./filefetch.pl
Use of uninitialized value in die at ./filefetch.pl line 12.
Died at ./filefetch.pl line 12.

Answer 1

使用调试器进入 File::Fetch::fetch()，问题是 File::Fetch 未能找到处理 https 方案的方法。它似乎有 no support for https。它正确地返回了 false，但它没有填充它的错误字段。

您假设应该将缺少方案视为错误是正确的。你可以 report a bug here.

解密 File::Fetch 错误

Deciphering File::Fetch error

perl

download

fetch