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.35/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.35/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.35/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.35/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.35/examples/javascript.pl

AUTHOR

Max Maischein corion@cpan.org

Contributed examples contain the original author's name.

COPYRIGHT

Copyright 2009-2016 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.