use Win32::IE::Mechanize qw( ); my $mech = Win32::IE::Mechanize->new(); my $url = 'http://www.vitoco.cl/test-ref'; $mech->get($url); print $mech->content();
It is strange: three consecutive runs gave:
C:\test>test-ie.pl <HTML><HEAD><TITLE>Referrer test</TITLE></HEAD> <BODY></BODY></HTML> C:\test>test-ie.pl <HTML><HEAD><TITLE>Referrer test</TITLE></HEAD> <BODY><IMG alt=img1 src="img1"> <IMG alt=img2 src="img2"> </BODY></HTM +L> C:\test>test-ie.pl <HTML><HEAD><TITLE>Referrer test</TITLE></HEAD> <BODY><IMG alt=img1 src="img1"> <IMG alt=img2 src="img2"> </BODY></HTM +L>
Only the first one had an empty body. Also, tags were uppercased and linebreaks chopped out.
From the docs: "WARNING: This is a work in progress...", last update in 2005(?).
Did you try WWW::Mechanize instead?
In reply to Re: Can a whole web page be saved using Perl?
by vitoco
in thread Can a whole web page be saved using Perl?
by eshwar
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |