perl - Perl コードにプロキシを追加する

Question

perl コードにプロキシを追加しようとしていますが、これが適切なコードかどうかわかりません??

#!usr/bin/perl

{

use strict;
 use LWP::UserAgent;
use warnings;
 my $ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/536.5 (KHTML, like Gecko) Chrome/19.0.1084.46 Safari/536.5');
 $ua->proxy([qw(http https)] => 'http://100.100.10.100:80');
 my $response = $ua->get("URL_IN_HERE");
 print $response->code,' ', $response->message,"\n";

}

Answer 1

方法を理解するには、以下の2つの例を参照してください...

---

プロキシが127.0.0.1ポートで実行されており、8080とをサポートしている場合は、httphttps

$ua->proxy(['http', 'https'], 'http://127.0.0.1:8080/');あなたのコードに。

---

プロキシがproxy.mydomain.comポートで実行されており、80とをサポートしている場合は、httpftp

$ua->proxy(['http', 'ftp'], 'http://proxy.mydomain.com:80/');あなたのコードに。

---

Answer 2

あなたの環境で（たぶん~/.bashrc）：

export http_proxy=http://100.100.10.100:80

Perl コードの場合:

#!/usr/bin/perl

use warnings;
use strict;

use LWP::UserAgent;


my $ua = new LWP::UserAgent(agent => 'Mozilla/5.0');
$ua->env_proxy;
my $response = $ua->get("URL_IN_HERE");
print $response->code,' ', $response->message,"\n";

Answer 3

次のコードを使用してみてください:)

#!usr/bin/perl
use strict;
use LWP::UserAgent;
use warnings;
{
my $ua = LWP::UserAgent->new;
    $ua->proxy( 'http', "http://127.0.0.1:3128");  #Your proxy
    $ua->default_header("Connection" => "keep-alive");
 $ua->agent("Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31");
 $ua->timeout (10);
 my $response = $ua->get("http://google.com"); #Website
 print $response->code,' ', $response->message,"\n";

}