Hello All, I tried to get the complete the URL by concatenating the $imageref->base and $imageref->url.
And then issue get on this complete url. ( added the code below ) ---------------- my $imageurl = $imageref->url ; my $imagebase = $imageref->base ; $url = "$imagebase/$imageurl"; print "Getting url $url\n"; $mech->get($url); ---------------- And heres the output: -bash-2.05b$ ./save_images.pl Found the image, reference is : WWW::Mechanize::Image=HASH(0x850cb48) Getting url http://abc.xyz.com/em/images/eui/gen_login_logo.gif Unable to find document ------------------------ I do see the image manually using IE and can save it. What I want to do is, emulate this behavior, Open the page in IE, right click on the image and select "save picture as" and save it. Thanks, Dhanashri _____ From: Dhanashri Bhate [mailto:[EMAIL PROTECTED] Sent: Tuesday, December 20, 2005 5:59 PM To: 'libwww@perl.org' Subject: WWW::Mechanize, save images from a page Hi All, I am currently automating some UI tests with the help of WWW::Mechanize module. I need to save images on a webpage. I tried using the find_image function to get the reference of the image ( as shown in the script below ). But do not understand how I can save that image in a file. Kindly help! ------------------------------------- My program: ------------------------------------- #!/usr/local/bin/perl use strict; use warnings; use WWW::Mechanize; my $mech = WWW::Mechanize->new(); $mech->quiet(0); #turn on warnings my $host = "abc.xyz.com"; my $url = "http://$host/email";; $mech->get($url); my $imageref = $mech->find_image( url_regex => qr/gen_login_logo/ ); if ( $mech->success ) { print "Found the image, reference is : $imageref\n"; } else { print "Did not find the image\n"; } ------------------------------------ The Output: ------------------------------------ -bash-2.05b$ ./save_images.pl Found the image, reference is : WWW::Mechanize::Image=HASH(0x850d024) Thanks, Dhanashri
