523066680

Mojolicious

use Modern::Perl;
use Mojo::UserAgent;
my $ua = Mojo::UserAgent->new();
my $dom = $ua->get("https://www.manhuadb.com/")->result->dom;

for my $e ( $dom->find("img")->each ) {
    say $e->attr("src") if $e->attr("src")=~/jpg$/;
}
复制代码

523066680

测试 .js 格式执行正常，生成 result.Log，内含图片链接