
December 14th, 2012, 04:17 AM
|
|
Registered User
|
|
Join Date: Apr 2012
Posts: 10
Time spent in forums: 5 h 54 m 12 sec
Reputation Power: 0
|
|
|
Re:
Quote: | Originally Posted by spacebar208 Post your code and the errors/messages you are getting. |
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 1 );
use WWW::Mechanize:  ecodedContent;
my $url="http://records.co.hawaii.hi.us/WebLink/PDF/zp5pey55qd5wcxnycpoa5q55/146/2012-11-1%20TO%202012-11-3%20PermitsIssuedDetails.pdf";
$mech->get($url);
my $status=$mech->response->status_line;
print "Code::$status\n";
my $content=$mech->content;
# my $content = $mech->decoded_content;
# my @links = $mech->find_all_links(
# tag => "a", text_regex => qr/\bpermitsIssued\b/igs );
open(fh1,">mech_cont.html");
print fh1 $content;
close(fh1);
# print "Links::@links\n";
print "Content Fetched Scuccessfully\n";
|