Perl Mojo:：UserAgent和进度条

是否具有类似于

显示进度

选项的功能？

否。无法使用

Mojo:：UserAgent

执行类似于

LWP:：UserAgent

的

显示进度

您可以在的帮助下制作进度条

$| = 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";