Examples - WWW::Mechanize::Chrome example programs.
This is a documentation only module showing the examples that are included in the WWW::Mechanize::Chrome distribution.
This file was auto-generated via the gen_examples_pod.pl program that is also included in the examples directory.
gen_examples_pod.pl
The following is a list of the 5 example programs that are included in the WWW::Mechanize::Chrome 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: sendkeys.pl" Send keystrokes to a page
"Example: javascript.pl" Execute Javascript in the webpage context
use strict; use File::Spec; use File::Basename 'dirname'; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; my $mech = WWW::Mechanize::Chrome->new(); 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/gpw2017'); show_screen; =head1 NAME url-to-image.pl =head1 SYNOPSIS perl url-to-image.pl =head1 DESCRIPTION This example fetches a web page and creates a screenshot in PNG format in the script's directory.
Download this example: http://cpansearch.perl.org/src/CORION/WWW-Mechanize-Chrome-0.65/examples/url-to-image.pl
#!perl -w use strict; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; my $url = shift @ARGV or die "Usage: perl $0 <url>\n"; my $mech = WWW::Mechanize::Chrome->new( headless => 1, # otherwise, PDF printing will not work ); 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"; =head1 NAME html-to-pdf.pl =head1 SYNOPSIS perl html-to-pdf.pl https://www.perl.org/ =head1 DESCRIPTION This example takes an URL from the command line, renders it and and saves it as a PDF file in the current directory.
Download this example: http://cpansearch.perl.org/src/CORION/WWW-Mechanize-Chrome-0.65/examples/html-to-pdf.pl
use strict; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; my $mech = WWW::Mechanize::Chrome->new(); $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 From the examples directory: perl dump-links.pl =head1 DESCRIPTION This program demonstrates how to read elements out of the Chrome DOM and how to get at text within nodes. It prints links with the CSS class "download" from a file provided with the distribution. =cut
Download this example: http://cpansearch.perl.org/src/CORION/WWW-Mechanize-Chrome-0.65/examples/dump-links.pl
#!perl -w use strict; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; Log::Log4perl->easy_init($ERROR); my $mech = WWW::Mechanize::Chrome->new(); $mech->get( 'https://google.com' ); $mech->sendkeys( string => "test\r" ); $mech->sleep( 10 ); =head1 NAME sendkeys.pl - send keystrokes to a page =head1 SYNOPSIS perl sendkeys.pl =head1 DESCRIPTION B<This program> demonstrates how to type some input into a text field and then press the C<enter> key. =cut
Download this example: http://cpansearch.perl.org/src/CORION/WWW-Mechanize-Chrome-0.65/examples/sendkeys.pl
#!perl -w use strict; use Log::Log4perl qw(:easy); use WWW::Mechanize::Chrome; my $mech = WWW::Mechanize::Chrome->new(); $mech->get_local('links.html'); $mech->eval_in_page(<<'JS'); alert('Hello Frankfurt.pm'); JS <>; =head1 NAME javascript.pl - execute Javascript in a page =head1 SYNOPSIS perl 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-Chrome-0.65/examples/javascript.pl
Max Maischein corion@cpan.org
corion@cpan.org
Contributed examples contain the original author's name.
Copyright 2009-2020 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.
To install WWW::Mechanize::Chrome, copy and paste the appropriate command in to your terminal.
cpanm
cpanm WWW::Mechanize::Chrome
CPAN shell
perl -MCPAN -e shell install WWW::Mechanize::Chrome
For more information on module installation, please visit the detailed CPAN module installation guide.