perl - Perl 模块 (WWW::Mechanize) 从页面中选择图像

Question

我试图搜索 SO 但找不到接近的答案。

我所拥有的是这个（链接和 URL 将被更改，但概念将完全相同）

#!/usr/bin/perl
#Some of the modules are going to be unused for now
use Win32::OLE;
use Win32::Ole::Variant;
use LWP::Simple;
use DBI;
use DBD::mysql;
use WWW::Mechanize qw();

$url = 'http://example.com';
$mechanize = WWW::Mechanize->new(autocheck => 1); #BTW what's autocheck=>1 for?
$mechanize->get($url);
$content = $mechanize->content();

print $content; #Shows the HTML (OK)

$mechanize->form_name('search');
$mechanize->field('level', '100');
$response = $mechanize->submit();

print $response->content(); #Shows the html of the submitted page (OK);

现在这个新表单生成了一个不是 .jpg 也不是其他图像格式的随机图像。我要做的就是将该图像（我知道名称）保存到我的文件夹中。图片标签是<img src="someImage.php"> and I would like to save it as文件夹中的 someImage.jpg`。

Answer 1

它有助于阅读您正在使用的软件的文档，而您没有这样做。您需要图像方法。

use strictures;
use WWW::Mechanize qw();
my $m = WWW::Mechanize->new; # autocheck is default since v1.50 (year 2008)
$m->get('file:///tmp/so11184595.html');
for my $i ($m->images) {
    $m->mirror($i->url_abs, 'some/someImage.jpg')
      if 'someImage.php' eq $i->url;
}