Shell模块（Shell.pm）在CentOS 7.4中无法执行Shell命令求助

首先得说清楚：Perl的Shell模块已经被官方标记为过时（deprecated），而且在较新的Perl版本（比如CentOS 7.4自带的Perl 5.16）里，它的行为已经发生了变化，甚至存在被逐步移除的风险，这就是你在CentOS 7.4遇到问题的核心原因。

为什么旧脚本在CentOS 6.4能跑，7.4不行？ #

CentOS 6.4自带的Perl版本是5.10，当时Shell模块的实现会自动把你导入的命令（比如ps）转化为可直接调用的子例程；但到了CentOS 7.4的Perl 5.16，Shell模块的默认行为已经改变，不再自动导出这些命令子例程，所以你调用ps时只会返回字符串"ps"，调用未导入的cat就会报未定义子例程的错误。

不需要全部改用system()，但推荐用更安全现代的替代方案 #

Shell模块不仅过时，还存在潜在的命令注入风险（如果处理用户输入的话），官方早就建议避免使用它。你可以根据需求选择以下更可靠的方式：

1. 捕获命令输出（替代你原来的$cmd=ps;场景）

用反引号` `或者qx//语法，直接捕获命令的输出，这和你原来用Shell模块想要的效果完全一致：

#!/usr/bin/perl
# 用反引号捕获输出
my $ps_output = `ps`;
print $ps_output . "\n";

# 或者用qx//，效果一样
my $passwd_content = qx(cat /etc/passwd);
print $passwd_content;

2. 只执行命令不捕获输出

如果不需要获取命令输出，用system()就可以：

# 简单执行命令
system("ps");

# 更安全的列表形式（避免shell解析，防止命令注入）
system("cat", "/etc/passwd");

3. 复杂场景（需要处理输入/输出/错误流）

如果需要更精细地控制命令的输入、输出或者错误信息，可以用IPC::Open3（Perl核心模块，无需额外安装）或者Capture::Tiny（第三方模块，需用CPAN安装），比如：

use IPC::Open3;
use Symbol 'gensym';

my ($wtr, $rdr, $err);
$err = gensym;
my $pid = open3($wtr, $rdr, $err, 'ps');
waitpid($pid, 0);

my $output = do { local $/; <$rdr> };
my $error = do { local $/; <$err> };

print "输出：$output\n";
print "错误：$error\n";

总结 #

别再纠结Shell模块的问题了，它已经被淘汰，换成上面的替代方案不仅能解决当前CentOS 7.4的兼容性问题，还能让你的脚本更安全、更具未来兼容性。

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