Wie kann ich Screenshots von Webseiten mit Perl machen?

Question

Ist es möglich, ein Skript in Perl zu schreiben, das verschiedene URLs öffnet und jeweils einen Screenshot speichert?

Answer 1

Sie können WWW::Mechanize::Firefox verwenden, um eine Firefox-Instanz zu steuern und die gerenderte Seite mit $mech->content_as_png zu sichern.

Beachten Sie jedoch, dass die Einrichtung eine große Herausforderung darstellen kann.

Wenn alles wie erwartet funktioniert, können Sie einfach ein Skript wie dieses verwenden, um Bilder der gewünschten Websites zu erstellen, aber Sie sollten Firefox starten und manuell auf die gewünschte Breite skalieren (Höhe spielt keine Rolle, WWW :: Mechanize) :: Firefox speichert immer die ganze Seite).

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> 

Answer 2

Sie könnten auch Win32::IE::Mechanize verwenden, um die Web-Seite mit IE zu machen, und dann Win32::Screenshot die Seite zu erfassen. Sie müssen wahrscheinlich etwas arbeiten, um herauszufinden, wo Sie den Screenshot machen können, aber das sollte nicht zu schwer sein.

Dies wird natürlich nur eine Windows-Plattform-Lösung, aber kann ausreichen.

Answer 3

Verwenden Sie das Modul WWW::Selenium, für das Sie eine Selenium Remote Control Sitzung eingerichtet haben und ausgeführt werden müssen.

Die capture_entire_page_screenshot() Methode sollte Sie zum Laufen bringen.

Von WWW::Selenium auf CPAN:

$sel->capture_entire_page_screenshot($filename, $kwargs)

Speichert den gesamten Inhalt des aktuellen Fensters Leinwand in eine PNG-Datei ...

---

Ein typisches Skript:

use strict; 
use warnings; 
use WWW::Selenium; 

my $sel = WWW::Selenium->new(host => "localhost", 
           port => 4444, 
           browser => "*iexplore", 
           browser_url => "http://www.google.com", 
          ); 

$sel->start; 
$sel->open("http://www.google.com"); 
$sel->capture_entire_page_screenshot("screenshot.png"); 
$sel->close; 

Answer 4

Ein anderer Ansatz, der die Verwendung eines Browsers nicht erfordert, besteht darin, ImageMagick und HTML2PS zu verwenden, um das Bild zu konvertieren. Seien Sie gewarnt, dies ist nicht trivial, und es ist fast unmöglich (zuletzt habe ich versucht), dies funktioniert auf Windows richtig zu machen.

Sobald ImageMagick installiert ist, besteht der einfachste Ansatz darin, einfach einen Systemaufruf an das convert-Programm auszuführen, das ImageMagick installiert. Wenn Sie weniger hackisch vorgehen möchten, können Sie die API PerlMagickImageMagick verwenden.

Es gibt eine ausgezeichnete Diskussion zu diesem Ansatz finden Sie unter PerlMonks.

Answer 5

Verwenden Sie eine Webdienst-API eines Drittanbieters wie http://webshotspro.com/ (Screenshots) oder http://www.thumbalizr.com/ (Miniaturansichten).