Perl LWP 隧道代理：经典 Perl HTTP 客户端对接爬虫代理

Perl LWP

use strict;
use warnings;
use LWP::UserAgent;
use JSON;

my $host = $ENV{PROXY_HOST} || 't.16yun.cn';
my $port = $ENV{PROXY_PORT} || '31111';
my $user = $ENV{PROXY_USERNAME} || 'user';
my $pass = $ENV{PROXY_PASSWORD} || 'password';
my $tunnel = $ENV{PROXY_TUNNEL} || 'perl-demo';

my $ua = LWP::UserAgent->new(
    proxy => {
        http  => "http://$host:$port",
        https => "http://$host:$port",
    },
    timeout => 15,
    ssl_opts => { verify_hostname => 0 },
);

# 代理认证
$ua->credentials("$host:$port", "", $user, $pass);

my $req = HTTP::Request->new(GET => "https://httpbin.org/ip");
$req->header("Proxy-Tunnel" => $tunnel);

my $resp = $ua->request($req);
if ($resp->is_success) {
    print $resp->decoded_content, "\n";
} else {
    print "Error: ", $resp->status_line, "\n";
}

四种场景

Perl 的 LWP::UserAgent 通过 proxy 参数配置代理，通过 credentials 方法处理认证。HTTPS Proxy-Tunnel 无法在 CONNECT 阶段注入自定义头。