Re: [PerlChina] Perl Advent 2010 Day 2: Tor

精力旺盛,这么多工作没压倒你?

2010/12/2 Fayland Lam <fayland@gmail.com>:
> =for advent_year 2010
>
> =for advent_day 2
>
> =for advent_title Tor
>
> =for advent_author Fayland Lam
>
> 在国内混，爬墙是必备技能。爬墙有很多种，SSH Tunnel, VPN, Tor 等。如果仅 仅是个人使用的话，SSH Tunnel 或者 VPN
> 都是不错的选择，速度够快，但是可能 不免费。Tor 是一个免费的选择，虽然有时候可能有点慢。
>
> 如果要做爬虫工具的话，Tor 将是一个必备选择。虽然有时候它不稳定或者某些网 站不欢迎它，但是大部分情况下，它都可以很好的工作。
>
> 本篇并非爬墙介绍篇或者下载安装篇，而是给某些有了套（Tor）但不知道咋用的 童鞋一点提示。:)
>
> 如果你能自己初始化 ua (M<LWP::UserAgent> 或 M<WWW::Mechanize>) ，我们可 以通过
> M<LWP::Protocol::socks> 来设置
>
> =pre
>
> $ua->proxy(['http', 'https'], 'socks://127.0.0.1:7070'); # SSH Tunnel
> $ua->proxy(['http', 'https'], 'socks://127.0.0.1:9050'); # Tor port
>
> $ua->{proxy} = {}; # remove proxy
>
> =end
>
> 但是如果我们无法得到某些模块的 ua 时，比如 M<Facebook::Graph> 或者 M<Net::Twitter>，我们可以通过
> M<LWP::Protocol::http::SocksChain> 和 L<LWP::Protocol::https::SocksChain>
> 直接更改最底层的 LWP protocol
>
> =pre
>
> use LWP::Protocol::http::SocksChain;
> use LWP::Protocol::https::SocksChain;
>
> # set proxy
> LWP::Protocol::implementor( http => 'LWP::Protocol::http::SocksChain' );
> @LWP::Protocol::http::SocksChain::EXTRA_SOCK_OPTS = (
> Chain_Len => 1,
> Debug => 0,
> Random_Chain => 1,
> Chain_File_Data => [ '127.0.0.1:9050:::4' ], # or [ '127.0.0.1:7070' ],
> Auto_Save => 0,
> Restore_Type => 0
> );
>
> LWP::Protocol::implementor( https => 'LWP::Protocol::https::SocksChain' );
> @LWP::Protocol::https::SocksChain::EXTRA_SOCK_OPTS = (
> Chain_Len => 1,
> Debug => 0,
> Random_Chain => 1,
> Chain_File_Data => [ '127.0.0.1:9050:::4' ], # or [ '127.0.0.1:7070' ],
> Auto_Save => 0,
> Restore_Type => 0
> );
>
> # clear proxy
> LWP::Protocol::implementor( http => 'LWP::Protocol::http' );
> LWP::Protocol::implementor( https => 'LWP::Protocol::https' );
>
> =end
>
> OK, 写出来都是很简单的代码。祝各位用套愉快。:)
>
> Enjoy
>
> --
> Fayland Lam // http://www.fayland.org/
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
>

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。