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);