NAME
Examples - WWW::Mechanize::Chrome example programs.
DESCRIPTION
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.
Example programs
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
Example: url-to-image.pl
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.73/examples/url-to-image.pl
Example: html-to-pdf.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.73/examples/html-to-pdf.pl
Example: dump-links.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.73/examples/dump-links.pl
Example: sendkeys.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.73/examples/sendkeys.pl
Example: javascript.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.73/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.