如何限制 Perl 程序中的下载？

Question

是否有任何 Perl 模块可用于下载限制？ 我想下载某个文件，但将下载速率限制为特定的 KB/秒数。

Answer 1

看起来像 WWW::Curl 和 CURLOPT_MAX_RECV_SPEED_LARGE 选项是
你想要什么：

#!/usr/bin/env perl

use strict;
use warnings;
use feature ':5.10';
use WWW::Curl::Easy;

# Setting the options
my $curl = WWW::Curl::Easy->new;

$curl->setopt(CURLOPT_HEADER,1);
$curl->setopt(CURLOPT_URL, 'http://www.google.com');
$curl->setopt(CURLOPT_MAX_RECV_SPEED_LARGE, 1);

my $response_body;
open my $fh, ">", \$response_body or die; # presumably this can be a real file as well.
$curl->setopt(CURLOPT_WRITEDATA,$fh);

my $ret = $curl->perform;
die 'Error: '. $curl->strerror($ret) if $ret;

my $response_code = $curl->getinfo(CURLINFO_HTTP_CODE);
say "Received response: $response_body";

在这个例子中，我们以每秒一字节的速度下载 Google。 非常
慢的。

Answer 2

不限于 Perl 且不限于特定协议的技术是使用 trickle：

trickle 是一个便携式轻量级用户空间带宽整形器。 它可以在协作模式（与滴流一起）或独立模式下运行。

另请参阅如何限制带宽C 中的套接字连接？

将这项技术打包为 Perl 模块（例如 IO::Handle 的子类）会很好，但我不知道有这样的技术。