使用HTTPS从( GitHub) URL下载二进制文件并重定向

Question

我正在尝试将托管在github.com上的二进制文件下载到本地磁盘。上下文要求我在Perl中这样做。这是我的测试代码：

use File::Fetch;

$fileurl = "https://github.com/libwww-perl/libwww-perl/archive/6.13.zip";
$to = "/tmp";

$ff = File::Fetch->new(uri => "$fileurl") || die("Fetch failed\n");

print STDERR "Fetch->new succeeded\n";

$where = $ff->fetch(to => $to);

if ($where) {
    print STDERR "Fetched file to '$where'\n";
}
else {
    print STDERR "Fetch failed: " . $ff->error(1) . "\n";
    exit(-1);
}

这可以很好地从我的非GitHub，通过HTTP服务的模拟web服务器下载一个测试文件。但是，对于托管在GitHub上的文件，它失败了，没有说明错误消息：

% ./trydownload
Fetch->new succeeded
Fetch failed:
%

对于github.com，上面的方法似乎有两个问题：

1. 它显然不支持GitHub提供的HTTPS下载。
2. 显然，它没有遵循重定向GitHub似乎用于将客户端定向到文件的实际存储位置的方法。

互联网搜索出现了一个由组件和部件组成的迷宫，我可以(我猜)最终构建一个可行的解决方案。然而，我没有几天的时间来尝试把所有这些组装妥当。

有人知道如何使上述代码(或在Perl中等效)通过HTTPS下载二进制文件并进行明显的重定向吗？或者至少成功地从github.com下载

Answer 1

这里同样使用libcurl包装器WWW::Curl::Easy;

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Curl::Easy;
use File::Temp qw/tempfile/;

my ($out, $filename) = tempfile();

my $curl = WWW::Curl::Easy->new();
$curl->setopt(CURLOPT_URL, "https://github.com/libwww-perl/libwww-perl/archive/6.13.zip");
$curl->setopt(CURLOPT_WRITEDATA, $out);
$curl->setopt(CURLOPT_VERBOSE, 1);
$curl->setopt(CURLOPT_FOLLOWLOCATION, 1);
my $retcode = $curl->perform();

if ($retcode != 0) {
  print STDERR  "Fetch Failed: ", $curl->strerror($retcode), " ( +$retcode)\n";
  print STDERR  "errbuf: ", $curl->errbuf;
  exit(1);
} 
else {
  print STDERR  "Fetched file to: ", $filename, "\n";
}