WWW::Mechanizeがプロシキ経由になってしまう
WWW::Mechanizeを使って診断君にアクセスすると判定結果が「判定:プロクシです proxy判定箇所が 1箇所、疑惑点が 2箇所ありました。」と出てしまうのですが
#$mech->proxy('http', $proxy);の部分をコメントにしているのにどうしてでしょうか?
何方か教えてもらえませんか?
___________________
#!/usr/bin/perl
use lib "lib";
use LWP::UserAgent;
use WWW::Mechanize;
$proxy = "http://xxxx.xxxx.jp:80";
$site = "http://www.taruo.net/e/";
my $mech = WWW::Mechanize->new();
#$mech->proxy('http', $proxy);
$mech->add_header( Referer => 'http://www.yahoo.co.jp',
Proxy-Connection => 'Keep-Alive',
Connection => 'Keep-Alive',
USER_AGENT => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)',
ACCEPT => 'image/gif,image/x-xbitmap,image/jpeg,image/pjpeg,image/pnp,*/*',
ACCEPT-CHARSET => 'iso-8859-1,*,utf-8',
ACCEPT_LANGUAGE => 'ja',
ACCEPT_ENCODING => 'gzip,deflate',
Content-Type => 'application/x-www-form-urlencoded',
Content-Length => '100',
HOST => 'www.taruo.net',
HTTP_CONNECTION => 'Keep-Alive',
);
$mech->post("$site");
$html = $mech->content;
print "Content-type: text/html;\n\n";
print<<endend;
$html
endend
exit;
お礼
ありがとうございます。なるほど。ということは、こちらに問題があるだけでなく、両方のどちらかに問題があるんですよね。助かりました。ありがとうございました。