Использовать прокси с Perl-скриптом

Question

Я хочу использовать прокси с этим сценарием perl, но я не уверен, как заставить его использовать прокси.

#!/usr/bin/perl
use IO::Socket;
$remote = IO::Socket::INET->new(
                        Proto    => "tcp",
                        PeerAddr => "localhost",
                        PeerPort => "8080",
                    )
                  or die "cannot connect";
print $remote "GET / HTTP/1.0\n\n";
    while ( <$remote> ) { print }

Answer 1

Используйте модуль LWP :: UserAgent, который имеет встроенную поддержку прокси .

Answer 2

  use LWP::UserAgent;
  $ua = LWP::UserAgent->new;
  $ENV{HTTP_proxy} = "http://ip:port";
  $ua->env_proxy; # initialize from environment variables
  my $req = HTTP::Request->new(GET => 'http://google.com/');
  print $ua->request($req)->as_string;
  delete $ENV{HTTP_PROXY};

Answer 3

Прямо из одного из моих сценариев:

use LWP::UserAgent;
my($ua) = LWP::UserAgent->new;

if ($opts->{'proxy'}) {
    my($ip) = Sys::HostIP->hostip;
    if (($ip =~ m{^16\.143\.}) ||
        ($ip =~ m{^161\.}) ||
        ($ip =~ m{^164\.})) {
        $ua->proxy(http  => 'http://localhost:8080');
    }
    else {
        $ua->proxy(http  => "");
    }
}
else {
    $ua->env_proxy;
}

#***** get current entry *****
my($req) = HTTP::Request->new(GET => "/1251797/ispolzovat-proksi-s-perl-skriptom");
my($raw) = $ua->request($req)->content;