Web::Scraper proxy設定

Web::Scraper - search.cpan.orgでproxy設定

#!/usr/bin/perl
use strict;
use warnings;
use Web::Scraper;
use URI;
use Data::Dumper;

my $url = shift;
my $http_proxy = 'http:// proxy : port';

my $scraper = scraper {
		process '', '' => '';
};

   $scraper->user_agent->agent('Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.2.3) Gecko/20100407 Ubuntu/9.10 (karmic) Firefox/3.6.3');
   
   $scraper->user_agent->proxy('http', $http_proxy);

my $uri = URI->new($URL);
my $result = $scraper->scrape($uri);
print Dumper($result);