Re: www::mechanize reloading page

in reply to www::mechanize reloading page

If you'd done a

use Data::Dumper;
die Dumper($content);
[download]

You'd see this:

<SCRIPT>
if(self==top)top.location.replace("/?"+document.location)
</SCRIPT>
[download]

Got it? :-)

So this would work:

#!/usr/bin/perl

use warnings;
use strict;

use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);

my $url = "http://www.letssingit.com/frame_menu.html";
my $query = "avril";


use WWW::Mechanize;
my $mech = WWW::Mechanize->new(agent=>"wonderbot");
$mech->get($url);

 print header,start_html("lyrics grabber");

$mech->submit_form(
        form_name => 'search',
        fields    => {
        s => $query,
        l => 'song',  # or 'artist' or 'album' or 'lyrics'.
        },
);
my $content = $mech->content;
$content =~ s/self==top//;

print $content;
[download]

"We all agree on the necessity of compromise. We just can't agree on when it's necessary to compromise." - Larry Wall.

Comment on Re: www::mechanize reloading page Select or Download Code

Replies are listed 'Best First'.
Re^2: www::mechanize reloading page by spyders (Initiate) on Apr 13, 2005 at 16:38 UTC
THANK YOU THANK YOU THANK YOU THANK YOU THANK YOU!!! Made that small s/// and the thing works like a charm! You're so smart! lol Thanks!	[reply]

In Section Seekers of Perl Wisdom