perl-module - プロキシクレデンシャルを使用してURLを監視するPerlスクリプト？

Question

次のコードを手伝ってください。これは私たちの環境では機能していません。

use LWP;
use strict;
my $url = 'http://google.com';
my $username = 'user';
my $password = 'mypassword';
my $browser = LWP::UserAgent->new('Mozilla');
$browser->credentials("172.18.124.11:80","something.co.in",$username=>$password);
$browser->timeout(10);
my $response=$browser->get($url);
print $response->content;

出力：

google.com:80に接続できません（タイムアウト）

LWP :: Protocol :: http :: Socket：connect：C：/Perl/lib/LWP/Protocol/http.pmの51行目でタイムアウト。

OS：Windows XP

よろしく、ガウラフ

Answer 1

172.18.124.11 に HTTP プロキシがありますか? LWP はプロキシを使用していないと思います。env_proxy => 1通話で使用したい場合がありnew()ます。

この質問には mod-perl2 タグもあります。このコードが mod-perl2 内で実行される場合、http_proxyenv 変数がコードから見えない可能性があります。これを確認できます。印刷による$browser->proxy('http')。

または、プロキシを設定するだけ$browser->proxy('http', '172.18.124.11')です。

また、文字列だけでなくハッシュを使用するuse warningsため、オンになっていないと思います。常に警告を有効にすることnew()をお勧めします。これにより、多くの手間が省けます。