How can I take screenshots of webpages with Perl?

by

You could use WWW::Mechanize::Firefox to control a Firefox instance and dump the rendered page with $mech->content_as_png.

Be aware that setting it up can pose quite a challenge, though.

If all works as expected, you can simply use a script like this to dump images of the desired websites, but you should start Firefox and resize it to the desired width manually (height doesn’t matter, WWW::Mechanize::Firefox always dumps the whole page).

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();

More Related Contents:

  1. Data consolidation using Perl [closed]
  2. How can i do this in perl, shortcut truthtable [closed]
  3. How to retrieve the values of required keys in Perl [closed]
  4. Perl: Meaning of double squared brackets after a string?
  5. What does this HTML::Parser() code do in Perl? [closed]
  6. Why use strict and warnings?
  7. Why does modern Perl avoid UTF-8 by default?
  8. Why is three-argument open calls with autovivified filehandles a Perl best practice?
  9. What’s the difference between Perl’s backticks, system, and exec?
  10. How can I parse dates and convert time zones in Perl?
  11. Which one is good practice, a lexical filehandle or a typeglob?
  12. How do I tell if a variable has a numeric value in Perl?
  13. Perl memory usage profiling and leak detection?
  14. How should I use the “my” keyword in Perl?
  15. Global symbol requires explicit package name
  16. How do I include functions from another file in my Perl script?
  17. How can I check if a file exists in Perl?
  18. Using Encode::encode with “utf8”
  19. Use of ‘use utf8;’ gives me ‘Wide character in print’
  20. How can I interact with ClearCase from Perl?
  21. How can I start an interactive console for Perl?
  22. What reasons are there to prefer glob over readdir (or vice-versa) in Perl?
  23. How do I convert a date/time to epoch time (unix time/seconds since 1970) in Perl?
  24. How to convert letters with accents, umlauts, etc to their ASCII counterparts in Perl?
  25. In Perl, is it better to use a module than to require a file?
  26. How can I extract text from a PDF file in Perl?
  27. Demystifying the Perl glob (*)
  28. Why does !1 give me nothing in Perl?
  29. How do I retrieve the terminal width in Perl?
  30. How do I print unique elements in Perl array?

Leave a Comment