时间嘛，女人的乳沟，挤挤总会有一点的。:) 2010/12/2 Chylli <[email protected]>: > 精力旺盛,这么多工作没压倒你? > > > 2010/12/2 Fayland Lam <[email protected]>: >> =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 讨论组”论坛。 >> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >> 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 >> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >> >> > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 > 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 > 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 > >
-- Fayland Lam // http://www.fayland.org/ -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
