Re^3: How to get back the url of a page

in reply to Re^2: How to get back the url of a page
in thread How to get back the url of a page

cormanaz is right. This image site sometimes redirects images to an IP address when the servers are getting high traffic. I need to be able to load the original image URL and detect whether or not it's going to redirect me. If so, I need to know what the address is of the image.

This is my current set up.

foreach my $pic (@pics)
{
   my $mech = WWW::Mechanize->new();
   $mech->agent_alias( 'Windows IE 6' );
   $mech->get($pic);
   my $location = $mech->uri();

   push(@final_pics, "$location");
   print "\ntesting $pic with location $location";

}
[download]

"Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us"

sulfericacid

Comment on Re^3: How to get back the url of a page Download Code

Replies are listed 'Best First'.
Re^4: How to get back the url of a page by Anonymous Monk on May 19, 2007 at 12:42 UTC
uri is always the location `use strict; use warnings; use WWW::Mechanize; my $url = 'http://google.com'; my $mech = WWW::Mechanize->new(); warn $url; warn $mech->get($url); warn $mech->uri(); __END__ http://google.com at - line 9. HTTP::Response=HASH(0x1d7f160) at - line 10. http://www.google.com/ at - line 11.` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: How to get back the url of a page
by Anonymous Monk on May 19, 2007 at 12:42 UTC


use strict;
use warnings;
use WWW::Mechanize;
my $url = 'http://google.com';

my $mech = WWW::Mechanize->new();

warn $url;
warn $mech->get($url);
warn $mech->uri();

__END__
http://google.com at - line 9.
HTTP::Response=HASH(0x1d7f160) at - line 10.
http://www.google.com/ at - line 11.
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom