-callbackにコードを追加:content_cb
すると、ダウンロードが遅くなりますか?
追加のコードの実行に 1_000/1_000_000 秒かかり、コールバックが 1_000 回呼び出されるとすると、1_000/1_000_000 * 1_000 秒ダウンロードが遅くなりますか?
#!/usr/bin/env perl
use warnings;
use 5.012;
use Time::HiRes qw(usleep);
use File::Basename;
use LWP::UserAgent;
my $url = 'my_url';
my $file_name = basename $url;
my $ua = LWP::UserAgent->new();
open my $fh, '>>:raw', $file_name or die $!;
my $res = $ua->get(
$url,
':content_cb' => sub {
my ( $chunk, $res, $proto ) = @_;
print $fh $chunk;
usleep( 1000 ); # code substitute
},
);
close $fh;