NAME
Examples - WWW::Mechanize::PhantomJS example programs.
DESCRIPTION
This is a documentation only module showing the examples that are included in the WWW::Mechanize::PhantomJS distribution.
This file was auto-generated via the gen_examples_pod.pl
program that is also included in the examples directory.
Example programs
The following is a list of the 4 example programs that are included in the WWW::Mechanize::PhantomJS distribution.
"Example: url-to-image.pl" Take a screenshot of a website
"Example: html-to-pdf.pl" Convert HTML to PDF
"Example: dump-links.pl" Dump links on a webpage
"Example: javascript.pl" Execute Javascript in the webpage context
Example: url-to-image.pl
use strict;
use File::Spec;
use File::Basename 'dirname';
use WWW::Mechanize::PhantomJS;
my $mech = WWW::Mechanize::PhantomJS->new(
launch_arg => ['ghostdriver/src/main.js' ],
);
sub show_screen() {
my $page_png = $mech->content_as_png();
my $fn= File::Spec->rel2abs(dirname($0)) . "/screen.png";
open my $fh, '>', $fn
or die "Couldn't create '$fn': $!";
binmode $fh, ':raw';
print $fh $page_png;
close $fh;
#system(qq(start "Progress" "$fn"));
};
$mech->get('http://act.yapc.eu/gpw2014');
show_screen;
Download this example: http://cpansearch.perl.org/src/CORION/WWW-Mechanize-PhantomJS-0.25/examples/url-to-image.pl
Example: html-to-pdf.pl
#!perl -w
use strict;
use WWW::Mechanize::PhantomJS;
my $mech = WWW::Mechanize::PhantomJS->new(
launch_arg => ['ghostdriver/src/main.js' ],
);
for my $url (@ARGV) {
print "Loading $url";
$mech->get($url);
my $fn= 'screen.pdf';
my $page_pdf = $mech->content_as_pdf(
filename => $fn,
);
print "\nSaved $url as $fn\n";
};
Download this example: http://cpansearch.perl.org/src/CORION/WWW-Mechanize-PhantomJS-0.25/examples/html-to-pdf.pl
Example: dump-links.pl
use strict;
use WWW::Mechanize::PhantomJS;
my $mech = WWW::Mechanize::PhantomJS->new(
launch_arg => ['ghostdriver/src/main.js' ],
);
$mech->get_local('links.html');
sleep 5;
print $_->get_attribute('href'), "\n\t-> ", $_->get_attribute('innerHTML'), "\n"
for $mech->selector('a.download');
=head1 NAME
dump-links.pl - Dump links on a webpage
=head1 SYNOPSIS
dump-links.pl
=head1 DESCRIPTION
This program demonstrates how to read elements out of the PhantomJS
DOM and how to get at text within nodes.
=cut
Download this example: http://cpansearch.perl.org/src/CORION/WWW-Mechanize-PhantomJS-0.25/examples/dump-links.pl
Example: javascript.pl
#!perl -w
use strict;
use WWW::Mechanize::PhantomJS;
my $mech = WWW::Mechanize::PhantomJS->new(
launch_arg => ['ghostdriver/src/main.js' ],
);
$mech->get_local('links.html');
print $mech->eval_in_page(<<'JS');
["Just","another","Perl","Hacker"].join(" ");
JS
=head1 NAME
javascript.pl - execute Javascript in a page
=head1 SYNOPSIS
javascript.pl
=head1 DESCRIPTION
B<This program> demonstrates how to execute simple
Javascript in a page.
=cut
Download this example: http://cpansearch.perl.org/src/CORION/WWW-Mechanize-PhantomJS-0.25/examples/javascript.pl
AUTHOR
Max Maischein corion@cpan.org
Contributed examples contain the original author's name.
COPYRIGHT
Copyright 2009-2024 by Max Maischein corion@cpan.org
.
All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.