0

-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;
4

1 に答える 1