如何在Perl脚本中配置代理服务器？附待修改脚本示例

嘿，看你用LWP::UserAgent写的Perl脚本要加代理功能，我给你整理了两种实用的配置方法，直接就能套用到你的脚本里：

方法一：在脚本内直接配置代理（最常用） #

因为你的脚本已经引入了LWP::UserAgent，只需要在创建UA对象后添加代理设置就行。如果代理需要账号密码认证，也可以一起配置：

修改后的脚本片段示例 #

#!/usr/bin/perl
use strict; # 建议加上，能帮你排查变量未声明的问题
use warnings;

my $TO = 'list of email adresses here';
require "/usr/local/SCRIPTS/www-tools/service-name/jcode.pl";
use LWP::UserAgent;

# --- 代理配置开始 ---
my $ua = LWP::UserAgent->new();
# 替换成你的代理服务器地址和端口，支持HTTP/HTTPS
my $proxy_addr = 'http://your-proxy-server:8080/';
# 为HTTP和HTTPS请求设置代理
$ua->proxy(['http', 'https'], $proxy_addr);

# 如果代理需要用户名密码认证，取消下面注释并填写信息
# $ua->credentials(
#     'your-proxy-server:8080', # 代理地址+端口
#     '', # 代理的Realm名称，多数情况下留空即可
#     'your-proxy-username',    # 代理账号
#     'your-proxy-password'     # 代理密码
# );
# --- 代理配置结束 ---

my $sendmail = '/usr/lib/sendmail -t -oi';
# 后续的日期处理、业务逻辑代码保持不变
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year = $year+1900;
$mon = $mon+1;
my $MMDD = sprintf("%02d/%02d",$mon,$mday);
my $HHMM = sprintf("%02d:%02d",$hour,$min);
my $err = 0;
# Ph.1 WebAccess-1stServer(VIP)
# @ret = &a... 你的后续业务代码

方法二：通过环境变量配置（无需修改脚本） #

如果不想改动脚本代码，可以在运行脚本前设置系统环境变量，LWP::UserAgent会自动读取这些变量：

临时设置（仅当前终端有效） #

export HTTP_PROXY=http://your-proxy-server:8080/
export HTTPS_PROXY=http://your-proxy-server:8080/
# 如果代理需要认证，格式是：http://username:password@proxy-server:port/
# export HTTP_PROXY=http://user:pass@your-proxy-server:8080/

然后直接运行你的Perl脚本就行。

额外注意事项 #

• 如果你的代理是SOCKS类型，需要先安装LWP::Protocol::socks模块，然后把代理地址改成socks://your-socks-proxy:port/
• 建议加上use strict;和use warnings;，能帮你提前发现脚本里的潜在问题

内容的提问来源于stack exchange，提问作者i716