Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: WWW::Mechanize follow meta refreshes

by merlyn (Sage)
on Apr 13, 2005 at 14:38 UTC ( [id://447422]=note: print w/replies, xml ) Need Help??


in reply to WWW::Mechanize follow meta refreshes

$mech->content() =~ /<meta http-equiv="refresh" content="0;url=([^"]*)
+"/;
my $url = $1;

[download]
Never never never use $1 without having tested the match. If the match fails, you're using a previous $1 from a previous successful match. Oops!

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

Replies are listed 'Best First'.
Re^2: WWW::Mechanize follow meta refreshes
by simon.proctor (Vicar) on Apr 13, 2005 at 15:42 UTC
    Oops!! :).

    I have updated the node.
[reply]

In Section Cool Uses for Perl

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://447422]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others musing on the Monastery: (6)
As of 2024-04-16 06:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found