如何使用Perl拍摄网页的截图？

发布时间：2020-12-15 21:18:53 所属栏目：大数据来源：网络整理

导读：可以在Perl中编写一个打开不同URL的脚本并保存每个脚本的截图？解决方法您可以使用 WWW::Mechanize::Firefox来控制Firefox实例，并使用$ mech- content_as_png转储呈现的页面。请注意，设置它可能会构成相当大的挑战。如果所有这些都按预期工作，您可以

可以在Perl中编写一个打开不同URL的脚本并保存每个脚本的截图？

解决方法

您可以使用 WWW::Mechanize::Firefox来控制Firefox实例，并使用$ mech-> content_as_png转储呈现的页面。

请注意，设置它可能会构成相当大的挑战。

如果所有这些都按预期工作，您可以简单地使用这样的脚本转储所需网站的图像，但是您应该启动Firefox并手动将其调整到所需的宽度(高度无关紧要，WWW :: Mechanize :: Firefox总是转储整个页面)。

use WWW::Mechanize::Firefox;
use Path::Class qw/file/;

my $mech = WWW::Mechanize::Firefox->new(
  bufsize => 10_000_000,# PNGs might become huge
);
$mech->get('http://www.stackoverflow.com/');

my $fh = file( 'test.png' )->open( '> :raw' );
print $fh $mech->content_as_png();</code></pre>

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!