Question

我一直在用太多时间来挫败自己。我认为这应该很简单，但我显然有一些根本性的错误。我读过：

我已阅读cpan文档： WWW-机械化/ lib中/ WWW /机械化/ FAQ.pod 的libwww-perl的-5.837 / LIB / LWP / UserAgent.pm

我可以在Google上找到每一个示例代码或文章。

这是我第一次在Stack Overflow上寻求帮助。感谢您的帮助。这是代码：

#!/usr/bin/perl

use WWW::Mechanize;

my $mech = WWW::Mechanize->new ( agent => "Mozilla/5.0" );

my $proxy = 'http://fetch4.me';

$mech->no_proxy('localhost');
$mech->proxy(['http', 'https', 'gopher'], $proxy) or die $!;
$mech->get('http://www.google.com');

print $mech->uri(),"\n";
print $mech->content(),"\n";
print $mech->text(),"\n";
print $mech->status(),"\n";

这是输出：

http://www.google.com
<html>Apache is functioning normally</html>

Apache is functioning normally
200

我这里的想法已经不多了。这些代码在你那正常吗？它会产生相同的结果吗？它出什么问题了？＆GT;。＆LT;

感谢您的时间。

Answer 1

问题似乎在服务器fetch4.me中。例如，尝试改为

my $ proxy ='http://124.207.162.87:80';

Answer 2

说：

my $mech = WWW::Mechanize->new ( agent => "Mozilla/5.0", noproxy => 1 );

帮助？

该文档暗示您需要这样做以避免对LWP的env_proxy进行隐式调用。

Perl机械化和代理问题

2 个答案: