Perl LWPでproxyがうまく刺さらない

質問

Perl初心者です。
LWPでどうしてもproxyが通りません・・・。
何が悪いのかわかりません。教えてください。
モジュールは全て導入を確認しました。
よろしくお願いします。
稚拙なミスだったらごめんなさい。

use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request::Common;

my $ua = LWP::UserAgent->new(
timeout=>"5"
);
#cybersyndromeさんからLWP::Simpleでproxyを取得
$_ = get('http://www.cybersyndrome.net/pla5.html');

#proxyをリストに代入
(@proxy_list)=/\"\>(.*?)\<\/a\>\<\/li\>\<li\>/g;

#適当なサイトをリクエストのターゲットに
$r = new HTTP::Request GET,('http://taruo.net/e/');

#前述のターゲットへリクエストしてひとつづつproxyが通るか確かめたいのに何故かすべてすぐにERRORに
for($i = 0;$i <= 10;$i++){
$proxy = 'http://'.$proxy_list[$i];
$ua->proxy ([qw(http https)] , $proxy);
$req = $ua->request($r);
if ($req->is_success) {
print "Success!\n";
}else{
print "Error\n";
}
}

回答No.1

hirdy · ベストアンサー

こんにちは。

$req = $ua->request($r);

を

$req = $ua->get('http://○○/');

に変更するとこちらでは動作しました。

お礼

ありがとうございます。
お礼が遅れて本当にすみません。