On Wed, Mar 13, 2013 at 2:09 PM, G M <iamnotregiste...@hotmail.com> wrote:
>
> I'm making an attempt at my first screen scraping script.
Works here:
!/usr/bin/perl
use strict;
use WWW::Mechanize;
use HTML::TokeParser;
use Data::Dumper;
print "Content-type: text/html\n\n";
print "setting up mech<br />";
my $agent = WWW::Mechanize->new();
$agent->agent_alias('Windows Mozilla');
print "mech setup";
my $page = $agent->get('http://www.easyjet.com/en/');
print "mech ran", ref $agent, "\n";
# print "agent: ", Dumper(\$agent), "\n";
# print "page: ", Dumper(\$page), "\n";
print "page ran", ref $page, "\n";
if ($page->is_success) {
print "page content", "\n";
print $page->decoded_content;
}
else {
print STDERR $page->status_line, "\n";
}
$page is an "HTTP::Response" object, I get decoded_content() but the
warning:
Wide character in print at /usr/local/bin/mech_test.pl line 18.
that's the print page.
--
a
Andy Bach,
afb...@gmail.com
608 658-1890 cell
608 261-5738 wk
