如何使用 Perl 截取网页屏幕截图？

是否可以用 Perl 编写一个脚本来打开不同的 URL 并保存每个 URL 的屏幕截图？

你可以使用WWW::机械化::Firefox http://search.cpan.org/perldoc?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();