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

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.