如何将LWP实例化语句赋值给Perl变量？批量应用统一维护

推荐方案：封装为自定义Perl模块 #

不要尝试把代码逻辑存成字符串或变量，直接写一个自定义模块封装LWP实例化逻辑，所有应用统一引用该模块，后续修改只需维护这一个文件。

1. 创建自定义模块（例如命名为My::LWP.pm） #

package My::LWP;

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

sub get_user_agent {
    # 这里集中配置LWP的所有参数，后续变更直接修改此处
    return LWP::UserAgent->new(
        ssl_opts => { verify_hostname => 0 }
        # 可添加其他全局配置，如 timeout => 10, ssl_version => 'TLSv1_2' 等
    );
}

1; # Perl模块必须以返回true结尾

2. 在所有Perl应用中替换实例化代码 #

将原来的my $ua = LWP::UserAgent->new(...);替换为：

use My::LWP;

my $ua = My::LWP::get_user_agent();

后续网络团队调整安全协议时，只需修改My::LWP.pm中的配置，所有应用无需逐个修改。

你之前写法失效的原因 #

• 把实例化代码存成字符串赋值给变量，本质只是存储了文本，不会执行Perl代码逻辑
• 尝试的eval写法逻辑错误，即便修正也会带来维护困难和潜在安全风险，远不如模块封装可靠

额外优化建议 #

• 可将SSL配置等参数单独存入配置文件（如JSON/INI格式），让模块读取配置生成实例，进一步提升灵活性
• 在模块中添加实例化失败的错误处理逻辑，返回更清晰的调试信息

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