perl - LWP でダウンロード速度を設定する - Perl

Question

インターネットからファイルをダウンロードするアプリケーションを開発しています。ファイルは主にftpサーバーにあり、ファイルを取得する機能を使用していますLWP::Simple。getstoreしかし、私はダウンロードの速度を制限したいと思いwgetます...

or内に実装された--limit-ratefromに似たものを見たことがありますか??wgetLWPLWP::Simple

ありがとう

Answer 1

あなたの主な関心事がFTPサーバーであるなら、多分Net :: FTP::Throttleを見てください。コンストラクターで最大レートを設定できます。

Answer 2

そのようなオプションはありません。

コールバックを使用して応答本文を取得する場合、目的のレートを提供するために必要な場合は、(sleep() を使用して) コールバックを意図的に遅くすることができます。

もちろん、LWP を完全に回避することもできます。たとえば、シェルアウトして callwgetなどを呼び出すことができますcurl。WWW::Curlなどの別のモジュールを使用することもできます。

更新: 最後の段落を追加しました。

Answer 3

...または、libcurlよりもLWPを使用できます:)

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