perl - Mojo::UserAgent と進行状況バー

Question

Mojo::UserAgentにはLWP::UserAgent show_progressオプションに似たものがありますか?

Answer 1

Mojo::Message からの進行状況イベントの助けを借りて、進行状況バーを作成できます。

$| = 1;

my $ua = Mojo::UserAgent->new;
$ua->on(start => sub {
    my ($ua, $tx) = @_;

    $tx->req->once(finish => sub {
        $tx->res->on(progress => sub {
            my $msg = shift;
            return unless my $len = $msg->headers->content_length;
            my $size = $msg->content->progress;
            print "\rProgress: ", $size == $len ? 100 : int($size / ($len / 100)), '%';
        });
    });
});

my $tx = $ua->get($url);
print $tx->error ? "\nDownloading failed: ".$tx->error->{message} : "\nDownloading finished!\n";

Answer 2

いいえ。 を使用するのshow_progressと同様のことはできません。LWP::UserAgentMojo::UserAgent