Hi all,
I have recieved the following error when I tried to run a simple script that
only downloads and prints a page. The script runs fine under Windows, but It
give this error when running under Linux.
Do you know which could be the cause for this error? Please tell me how can
I solve it.
The error is:
Can't locate auto/Compress/Zlib/autosplit.ix in @INC (@INC contains:
/usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0
/usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at
/usr/lib/perl5/5.8.0/AutoLoader.pm line 158.
at
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/Compress/Zlib.pm
line 16
The script is:
#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new(env_proxy=>0,
timeout=>600,
keep_alive=>1,
);
$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)');
my $url =
"http://www.paginiaurii.ro/result.php3?judet=11&book_type=1&include_all=Y&do
m_id=100500&pa_domeniu=&localitate=Buzau&nrrez=1000000&srtby=&pcount=0";
print &download($url);
sub download {
my $url = shift;
my $request = HTTP::Request->new('GET', $url);
$request->header(REFERER => "http://www.paginiaurii.ro/";);
my $response = $ua->request($request);
my $content = $response->content;
return $content;
#End sub download
}
Teddy
