使用LWP-Perl设置下载速度

我正在开发一个从互联网下载文件的应用程序；文件主要在ftp服务器中，我使用

LWP:：Simple

和

getstore

函数来检索文件。但是我想限制下载速度，比如在

wget

您是否在

LWP

或

LWP:：Simple

中看到了类似于

wget

中的

--限制率

的东西

---

谢谢

没有这样的选择

如果使用回调获取响应主体，则可以在必要时故意减慢回调速度（使用sleep（）），以提供所需的速率

当然，您也可以完全避免LWP。例如，您可以和shell一起调用

wget

、

curl

或任何东西。您还可以使用其他模块，例如

---

更新：添加了最后一段。

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

..也可以使用：）

#!/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';