perl - 如何使用Perl拍摄网页的屏幕截图？

Question

是否可以在Perl中编写脚本来打开不同的URL并保存每个URL的屏幕快照？

Answer 1

您可以使用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();