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

prasadbabu has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks,
I tried to open a web page and save a pdf file in the local folder. Below is the code. I could able to open the file successfully and pdf file is opening in the webpage format and I am not able to save the file (pdf). Please let me know where am i making mistake? or suggest me some solution to save the pdf file in the local system.
Note: I changed the name of the site and username/password for security reasons.

use Win32::IEAutomation; use Data::Dumper; use LWP::Simple; $\="\n"; $,=" "; $ie=Win32::IEAutomation->new(visible=>1, maximize=>1); $url='www.test.com/pp/login.asp'; $ie->gotoURL($url); $ie->getTextBox('name:', 'loginName')->SetValue('test'); $ie->getTextBox('name:', 'password')->SetValue('test'); $ie->getButton('name:', 'loginBtn')->Click; $url1 = 'http://www.test.com/pp/lookup.asp'; $ie->gotoURL($url1); print "Logged in Successfully.....\n"; $ie->getSelectList('name:', 'field')->SelectItem("A Type"); $ie->getSelectList('name:', 'value')->SelectItem("A Notice"); $ie->getButton('name:', 'submitBtn')->Click; $url2 = 'http://www.test.com/pp/lookup.asp?pid=50643'; $ie->gotoURL($url2); print "Reading PDF files.....\n"; $url3 = 'http://test.test.net/files/b6533c01-9ddc-4865-8381-e774804b8a +49.pdf'; $ie->gotoURL($url3); print "Selected PDF file Successfully.....\n"; my $file = get ("$url3") ; open( FILE, '>', "D:\\filename.pdf" ) or die $!; binmode FILE; print FILE $file; close( FILE ); print "Downloaded.....\n";

Thanks in advance

Prasad