펄 스크립트로 프록시 사용

Question

이 펄 스크립트로 프록시를 사용하고 싶지만 프록시를 사용하는 방법을 잘 모르겠습니다.

#!/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

proxy support이 내장 된 LWP :: UserAgent 모듈을 사용하십시오. 내 스크립트 중 하나에서

Answer 2

스트레이트 :

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 => "http://stackoverflow.com/questions/1746614/use-proxy-with-perl-script"); 
my($raw) = $ua->request($req)->content; 

Answer 3

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};