Re: [PerlChina] 用HTTP::Request 获取网页内容的时候，如何指定代理服务器？

啊，我明白了，应该是在这个发送请求的模块里添加代理。

多谢指引！

2009/12/14 周鹏远 <jackson1668@gmail.com>

这个用的是POE里面的一个模块

#创建语句

        POE::Component::Client::HTTP->spawn(

            Alias           => $self->{http_alias},

            Timeout         => 60,

            FollowRedirects => 2,

            Agent           => 'Mozilla/5.0 (X11; U; Linux i686; en-US; ' .

                               'rv:1.1) Gecko/20020913 Debian/1.1-1',

        );

#发送请求

    $kernel->post(

        $self->{http_alias} => request => _response =>

        $req,                                                #传递的参数

        $uniq_feed->hashcode,                      #传递的参数

    );

#然后又一个 sub _response负责接收处理

my $res = $req->[0];
if ( $res->is_success ) {
   my $content = $res->content;
}

上面这两句就是在_response函数里面的

2009/12/14 msmouse <msmouse@gmail.com>

楼主是用什么方法把request发出去的？ 仿佛没贴那句

----------------------------------
msmouse@ir.hit.edu.cn
msmouse@gmail.com

2009/12/14 周鹏远 <jackson1668@gmail.com>

这句话好像是LWP::UserAgent模块里面的HTTP::Request里面并没有这个方法

2009/12/14 msmouse <msmouse@gmail.com>

 $ua->proxy(https=>$self->{proxy});

----------------------------------
msmouse@ir.hit.edu.cn
msmouse@gmail.com

2009/12/14 小飞侠 <jackson1668@gmail.com>

既存的程序里获取网页内容的语句摘要如下
use HTTP::Request::Common qw(GET);
......

 my $req = GET $uniq_feed->url;

......

 $req->headers->authorization_basic(
   $username,
   $password
)

.......

my $res = $req->[0];
if ( $res->is_success ) {
   my $content = $res->content;
}
目前需要在既存程序的基础上，对应需要使用代理服务器访问网络的情况。
请高手指教

--

您收到此邮件是因为您订阅了 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 访问此网上论坛。

--

您收到此邮件是因为您订阅了 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 访问此网上论坛。

--

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