http://www.perlmonks.org?node_id=333073


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 ;-)

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";