http://qs321.pair.com?node_id=447422


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