![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
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;
No.2ベストアンサー
- 回答日時:
結果から考えますと、add_header()できちんとヘッダが登録できていないようです。
他にも少し修正してみました。以下のソースコードを使えば、良い判定が出るかと思います。さらに良い結果を望まれる場合、"HTTP_CONNECTION"を"Keep-Alive"に固定する必要があります。LWP::UserAgentモジュールの範疇では困難ですが、どうしても、ということであれば、下記のソースコードに多少手を加えた後、LWP::Protocol::httpモジュールのソースファイル40行目付近を改造(SendTE => 1を0)し、さらにNet::HTTP::Methodsモジュールのソースファイル152行目付近を改造(行頭に#を挿入)すれば所望の動作となるようです。
# ライブラリに手を加えるのはおすすめしません。
___________________
#!/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(agent => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)'); # モジュール改造の場合はkeep_alive=>1も指定する
#$mech->proxy('http', $proxy);
$mech->add_header(Referer => 'http://www.yahoo.co.jp');
$mech->add_header(ACCEPT => 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */*');
$mech->add_header(ACCEPT_LANGUAGE => 'ja');
$mech->add_header(ACCEPT_ENCODING => 'gzip,deflate');
$mech->add_header(HOST => 'www.taruo.net');
$mech->add_header(CONNECTION => 'Keep-Alive'); #モジュール改造の場合は行削除
$mech->post("$site");
$html = $mech->content;
print "Content-type: text/html;\n\n";
print<<endend;
$html
endend
exit;
fruit893さん、回答ありがとうございます。
試してみましたところ、結果は下記のように改善されました。
改善したいところはREMOTE_ADDRがレンタルサーバーのアドレスになってますが、これを自分のIPにするには、どうすれば良いのでしょうか?
すみませんが、よろしくお願いします。
_______________________
REMOTE_HOST wwwXXX.kagoya.net
REMOTE_ADDR 210.134.54.xxx
HTTP_REFERER http://www.yahoo.co.jp
HTTP_USER_AGENT . Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
HTTP_ACCEPT . image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */*
HTTP_ACCEPT_LANGUAGE . ja
HTTP_ACCEPT_ENCODING . gzip,deflate
HTTP_HOST . www.taruo.net
その他の情報
HTTP_CONNECTION . Keep-Alive, TE, close
HTTP_TE . deflate,gzip;q=0.3
判定
wwwXXX.kagoya.net (210.134.54.xxx)
判定:プロクシです proxy判定箇所が 1箇所、疑惑点が 1箇所ありました。
漏れ判定:漏れてはいないようです
総合評価:A
極めて物静かなproxyです。proxy経由であることを示す情報がほとんどありません。
No.3
- 回答日時:
> 改善したいところはREMOTE_ADDRがレンタルサーバーのアドレスになってますが、これを自分のIPにするには、どうすれば良いのでしょうか?
残念ながら、接続元ホストを示すREMOTE_ADDRを好きなものに変えることはできません。
No.1
- 回答日時:
Proxy-Connection => 'Keep-Alive',
の行を削ってみてください。
fruit893さん、回答ありがとうございます。
早速、試してみたのですが結果は下記の様に
「極めて物静かなproxyです。」となってしまいました。レンタルサーバーは「かごや」さんを使っているのですが、他のサーバーならProxy経由にならないのでしょうか?
________________________________________________
REMOTE_HOST wwwXXX.kagoya.net
REMOTE_ADDR 210.134.54.xxx
HTTP_REFERER http://www.yahoo.co.jp
HTTP_USER_AGENT . Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
HTTP_ACCEPT . image/gif,image/x-xbitmap,image/jpeg,image/jpg,image/pnp,*/*
HTTP_ACCEPT_LANGUAGE . ja
HTTP_ACCEPT_ENCODING . gzip,deflate
HTTP_HOST . www.taruo.net
その他の情報
HTTP_CONNECTION . Keep-Alive, TE, close
HTTP_0 . application/x-www-form-urlencoded
HTTP_TE . deflate,gzip;q=0.3
判定
wwwXXX.kagoya.net (210.134.54.xxx)
判定:プロクシです proxy判定箇所が 1箇所、疑惑点が 2箇所ありました。
漏れ判定:漏れてはいないようです
総合評価:A-
極めて物静かなproxyです。proxy経由であることを示す情報がほとんどありません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PHP PHP MySql 画像を取得 1 2022/06/04 14:05
- HTML・CSS 書籍を見つつサイト造りの練習をしているのですが、見た目が一致しません 2 2022/11/28 15:00
- C言語・C++・C# condaコマンドに対応したプロキシ設定が思うようにならないようです。 2 2022/04/11 17:15
- PHP PHP MySQLに画像を直接保存 2 2022/06/05 11:50
- HTML・CSS CSSが効かずどのように指定すれば良いか分からないのでアドバイスお願い致します 2 2023/06/07 12:25
- CGI htmlからパラメータで、cgiに渡したい。 1 2023/02/06 16:15
- JavaScript clear機能を失わずにファイルアップロード機能を作成したい 3 2023/06/10 16:12
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
- PHP imageフォルダに、画像をリサイズして保存する時のファイル名を変更したい 1 2023/05/30 11:39
- その他(プログラミング・Web制作) laravel 本番環境でメールが送れません。 1 2023/02/17 17:57
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
laravel 本番環境でメールが送...
-
LCD ディスプレイを Raspberry ...
-
Chart::Gnuplotの使い方
-
グラフのX,Y座標を取得したい
-
ユーザー定義関数に#NAME?が返...
-
例外処理のフローチャートの記...
-
Excel VBAでリンク切れをチェッ...
-
「デバイスは PRN を初期化でき...
-
文章の分割
-
VBでグローバル変数を宣言するには
-
Excel VBA 『Call』で呼び出す...
-
Perlソースコードをコンパイル...
-
エクセルVBAでシートモジュール...
-
Form間の値の渡し方
-
モジュールとは何ですか
-
[ASP]条件によってインクルード...
-
「Perl Command Line InterPret...
-
'Range'メソッドは失敗しました
-
ppmのリポジトリの場所
-
Excel VBAで、ユーザーフォー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
LCD ディスプレイを Raspberry ...
-
Perlで画像のサイズ取得する方法
-
"use CGI::Session"でエラーが...
-
laravel 本番環境でメールが送...
-
DBIが入っているはずですが、、、
-
Unicode::Japanese を継承できない
-
WWW::Mechanizeがプロシキ経由...
-
警告を消したい
-
PerlでHashのキーを制限したい
-
Chart::Gnuplotの使い方
-
リンク先の画像サイズの取得
-
perlで指定か所のurlを取り出し...
-
htmlフォームから受け取ったフ...
-
データベースに接続したい
-
エラーでハマっている為、use A...
-
perlからDBIを使用したpostgres...
-
(Perl CPAN) DBDがはいらない
-
例外処理のフローチャートの記...
-
Excel VBAでリンク切れをチェッ...
-
ユーザー定義関数に#NAME?が返...
おすすめ情報