Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: www::mechanize reloading page

by jbrugger (Parson)
on Apr 13, 2005 at 09:55 UTC ( #447317=note: print w/replies, xml ) Need Help??


in reply to www::mechanize reloading page

If you'd done a
use Data::Dumper; die Dumper($content);
You'd see this:
<SCRIPT> if(self==top)top.location.replace("/?"+document.location) </SCRIPT>
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;


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

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!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://447317]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (7)
As of 2022-05-17 15:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (66 votes). Check out past polls.

    Notices?