Mechanize module

[sureshbup]

Hi,

i am new to perl...

i tried this module mechanize. this is the script

#!/usr/bin/perl
 
# Include the WWW::Mechanize module
use WWW::Mechanize;
 
# What URL shall we retrieve? [I HAVE TRIED DIFFERENT URLS ALSO]
$url = "http://www.example.com/bestselling.html";
 
 
# Create a new instance of WWW::Mechanize
# enabling autoheck checks each request to ensure it was successful,
# producing an error if not.
my $mechanize = WWW::Mechanize->new(autocheck => 1);
 
# Retrieve the page
$mechanize->get($url);
 
# Assign the page content to $page
my $page = $mechanize->content;
 
# Output the page
print $page;
 
# Let's also save the page locally
open(FH, ">bestsellers.txt");
 
print FH $page;
 
close(FH);
 

the error is
================================================== ==============


Error GETing http://www.example.com/bestselling.html: Can't connect to www.example.com:80 (Bad hostname 'www.example.com').

SOLUTION TRIED FROM USER GROUPS
================================================== ==============

1) i have turned off firewall with /etc/init.d/iptables stop

2) i have checked the error log file
[Wed Feb 06 10:00:09 2008] [notice] core dump file size limit raised to 18446744073709551615 bytes
[Wed Feb 06 10:00:10 2008] [notice] Digest: generating secret for digest authentication ...
[Wed Feb 06 10:00:10 2008] [notice] Digest: done
[Wed Feb 06 10:00:11 2008] [notice] Apache/2.0.46 (Red Hat) configured -- resuming normal operations


================================================== ================

BUT STILL I DONT KNOW HOW TO RECTIFY


I HAVE TRIED LWP::Simple module also but this is showing error 500.


give me some suggestion to rectifiy this


Suresh

[debasisdas]

Question move to PERL forum.

[eWish]

Your code works. Below is a slightly revised version.

#!/usr/bin/perl -T
 
use strict;
use warnings;
 
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
 
my $q = CGI->new;
 
print $q->header();
print $q->start_html();
 
# Include the WWW::Mechanize module
use WWW::Mechanize;
 
# What URL shall we retrieve? [I HAVE TRIED DIFFERENT URLS ALSO]
my $url = 'http://somesite.com';
 
 
# Create a new instance of WWW::Mechanize
# enabling autoheck checks each request to ensure it was successful,
# producing an error if not.
my $mechanize = WWW::Mechanize->new(autocheck => 1);
 
# Retrieve the page
$mechanize->get($url);
 
# Assign the page content to $page
my $page = $mechanize->content();
 
# Output the page
print $page;
 
# Let's also save the page locally
open(my $FH, '>', 'path/to/file/bestsellers.txt') || die "Can't open file $!\n";
 
print $FH $page;
 
close($FH);
 
print $q->end_html();
 
1;

--Kevin

[numberwhun]

Well, if the code works, then I would check to ensure that there isn't a firewall in the way, stopping you from getting out.

Regards,

Jeff

[KevinADC]

Well, if the code works, then I would check to ensure that there isn't a firewall in the way, stopping you from getting out.

Regards,

Jeff

Evidently he tried that already

SOLUTION TRIED FROM USER GROUPS
================================================== ==============

1) i have turned off firewall with /etc/init.d/iptables stop

[numberwhun]

Evidently he tried that already

he he, missed that one in my tired, zen state. Thanks!

[sureshbup]

Hi,

Thanks for replies. The script is working now. My system admin has changed my system primary DNS server address. Now its working. Once again thanks for your prompt replies.


with regards
Suresh