使用 Perl 从动态网站抓取完整的 img src

Question

>我正在使用Perl Web：：Scraper模块从Zazzle产品页面获取img src，这是API调用的结果。

如果我使用 Web 浏览器查看页面源代码，则图像具有完整路径（从 ？ 开始）。当我使用 Perl 脚本检索 HTML 时（我也尝试过 File：：Fetch），我只能得到".jpg"。

浏览器页面源生成此 img src：

http://rlv.zcache.com/coat_of_arms_t_shirt-rb35fa7573d9448a4aeed82f56d98c523_j2nhl_512.jpg?t_supporters_iid=18c7f0d0-5bf8-4aa5-b6b8-5151099cc0ad

Perl 脚本检索这个 img src：

http://rlv.zcache.com/coat_of_arms_t_shirt-rb35fa7573d9448a4aeed82f56d98c523_j2nhl_512.jpg

是否可以使用 Perl 脚本从此类网站检索完整的 src？

下面是 Perl 脚本：

#!/usr/bin/perl
use URI;
use Web::Scraper;
my $api_call = "http://www.zazzle.com/api/create/at-238543087866915480?rf=238543087866915480&ax=linkover&pd=235262722863405468&fwd=productpage&ed=true&supporters=http%3A%2F%2Fcoadb-dev.com%2Fwp-content%2Fprocessed_images%2Firvine%2Ffull_size%2Firvine-arms-1.png";
my $image_scraper = scraper {
    process ".ZazzleWidgetsSppMainView-realviewCrop", "images[]" => scraper {
        process "img", src => '@src';
    };
};
my $res = $image_scraper->scrape(URI->new($api_call));
for my $img (@{$res->{images}}) {
    print $img->{src}  . "n";
}

Answer 1

我的解决方案是使用 WWW：：Scripter：:P lugin：：JavaScript 安装 WWW：：Scripter（以及用于处理返回内容的 Web：：Scraper）。

上述插件能够访问从Javascript动态生成的内容。不需要额外的模块。

谢谢！