in reply to Re: Re: Re: suck on www::mechanize question
in thread can't get www::mechanize to work on a web site
Thanks again for the help
I tried your string 200 times w/o success and it works every time in the browser...Don't know what I could be doing wrong...
I don't think it is the lyrics web site as the first ->get() works, it is just the 2nd one that fails...
The link that failes in www:mechanize is:
http://display.lyrics.astraweb.com:2000/display.cgi?beatles..beatles_1..hey_jude
This URL works in my browser always...
Here is my complete test program incase someone else wants to give it a try ;-)
I tried your string 200 times w/o success and it works every time in the browser...Don't know what I could be doing wrong...
I don't think it is the lyrics web site as the first ->get() works, it is just the 2nd one that fails...
The link that failes in www:mechanize is:
http://display.lyrics.astraweb.com:2000/display.cgi?beatles..beatles_1..hey_jude
This URL works in my browser always...
Here is my complete test program incase someone else wants to give it a try ;-)
use WWW::Mechanize; use URI::URL; use strict; use warnings; my $artist = 'The Beatles'; my $title = 'Hey Jude'; my $mech = WWW::Mechanize->new(autocheck=>1); #$mech->agent_alias('Windows IE 6'); my $search = join("+", split(/ /, $artist)) . "+" . join("+", split(/ +/, $title)); print "search=" . "http://search.lyrics.astraweb.com/?word=$search" . + "\n"; $mech->get("http://search.lyrics.astraweb.com/?word=$search"); $mech->success() or die "Can't get the search page\n"; $mech->follow_link(text=>"Hey Jude"); #$mech->follow_link(n=>6); $mech->success() or die "Can't find lyrics page\n";
In Section
Seekers of Perl Wisdom