WWW::Mechanize::Firefoxで簡単スクリーンショット

WWW::Mechanize::Firefox-すごいな mozreplと組み合わせてこんなコードで簡単にスクリーンショットがとれる

#!/usr/bin/env perl use strict; use warnings; use WWW::Mechanize::Firefox; die "usage: $0 <url> <filename>" unless scalar @ARGV == 2; my ($url, $file) = @ARGV; my $mech = WWW::Mechanize::Firefox->new( #tab => 'current', bufsize => 10 * 1024 * 1024, # 10 MB autoclose => 1, ); $mech->get( $url ); my $png = $mech->content_as_png(); my $fh = new IO::File "> $file"; if (defined $fh) { print $fh $png; $fh->close; } print "wrote: $url => $file\n";

perl mechanize-firefox.pl "yahoo.co.jp" yahoo.png

とかってやってとれたスクリーンショットはこんな

write error: filehandle isn't open at /path/to/MozRepl/Client.pm line 186<br />

とかって出たらFirefoxのmozreplが立ち上がってない。

maximum input buffer length exceeded: 1048576 bytes at /path/to/MozRepl/Client.pm line 186<br />

とかって出たらmozreplとperlスクリプトのtelnetのバッファが足りないようなのでgistにあるbufsizeを大きめにとる

PS: 開いてるFirefoxでとったのでMacBookProの解像度を活かしてサイズは(1899 x 1607)になってるのは自慢です

maaash.jp

what I create

WWW::Mechanize::Firefoxで簡単スクリーンショット

Comments