使用 LWP - Perl 设置下载速度

Question

我正在开发一个从互联网下载文件的应用程序；这些文件主要位于 ftp 服务器中，我使用 LWP::Simple 和 getstore 函数来检索文件。但我想限制下载速度，就像在 wget 中一样...

您是否见过类似于 wget--limit-rate 的东西code> 在 LWP 或 LWP::Simple 中实现？

谢谢

Answer 1

如果您主要关心的是 FTP 服务器，可以查看 Net::FTP::油门。您可以在构造函数中设置最大速率。

Answer 2

没有这样的选择。

如果您使用回调来获取响应正文，则可以在必要时故意减慢回调速度（使用 sleep()）以提供所需的速率。

当然，您也可以完全避免 LWP。例如，您可以调用 wget、curl 等。您还可以使用另一个模块，例如 WWW::Curl。

更新：添加了最后一段。

Answer 3

...或者你可以使用 LWP over libcurl :)

#!/usr/bin/env perl
use common::sense;

use LWP::Protocol::Net::Curl MAX_RECV_SPEED_LARGE => 10240; # 10 KB/s
use LWP::Simple;

getstore 'http://www.cpan.org/src/5.0/perl-5.16.2.tar.gz' => 'perl.tar.gz';