[PerlChina] 2010 Perl Advent Day 10: Furl

Fri, 10 Dec 2010 03:03:39 -0800 

http://advent.perlchina.org/2010/Furl.html

=for advent_year 2010

=for advent_day 10

=for advent_title Furl

=for advent_author Fayland Lam

M<LWP::UserAgent> 是最基础的 Perl 抓取工具。M<WWW::Mechanize> 在此基础上通过
M<HTML::Form> 来提供提交表单和其他一些功能。

今天要介绍的是 M<Furl>，一个更快速的解决方案。

Furl 提供了一个大致兼容的方案：

=begin code

    use Furl;

    my $furl = Furl->new(
        agent   => 'MyGreatUA/2.0',
        timeout => 10,
    );

    my $res = $furl->get('http://example.com/');
    die $res->status_line unless $res->is_success;
    print $res->content;

=end code

该方案无需太多修改而获得加速。如果上述方案还无法满足需求的话，可以试试更底层的 M<Furl::HTTP>，该模块通过不构建 Response 来获得加速。

=begin code

    use Furl;

    my $furl = Furl::HTTP->new(
        agent   => 'MyGreatUA/2.0',
        timeout => 10,
    );

    my ($minor_version, $code, $msg, $headers, $body) = $furl->request(
        method => 'GET',
        host   => 'example.com',
        port   => 80,
        path   => '/'
    );

=end code

当然 Furl 在获得加速的同时，可能放弃了对某些所需的直接支持。比如 Cookie 和 gzip 等。

工具只是工具，高手和新手的最大区别只是在于正确的时间选择正确的工具。:)

Enjoy.


-- 
Fayland Lam // http://www.fayland.org/

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

回复