Perl命令行指令在Perl脚本中执行报错的问题排查及日志空行移除替代方法

你遇到的问题很明确：在Perl脚本里直接写shell命令会被当作Perl代码解析，而perl -i -n -e "print if /\S/" $log_file是shell环境下的命令，Perl编译器自然会报语法错误。下面给你两种靠谱的解决方案：

方案1：用system()执行外部shell命令 #

如果你坚持想用原来的命令逻辑，可以把它放进system()函数里执行，这样Perl会调用shell来运行这条指令。注意要处理好引号转义，避免Perl解析时出问题：

# 方式1：用q{}包裹命令，避免引号冲突，同时转义正则里的反斜杠
system(q{perl -i -n -e "print if /\\S/"}, $log_file);

# 方式2：用单引号包裹命令，内部单引号转义
system('perl -i -n -e \'print if /\S/\'', $log_file);

方案2：纯Perl实现移除空行（推荐） #

调用外部Perl进程完全是没必要的开销，直接在当前脚本里实现相同逻辑更高效、更可靠。这里有两种写法：

写法A：读写文件过滤空行 #

# 读取文件内容，过滤掉无有效字符的行
open my $input_fh, '<', $log_file or die "无法读取文件 $log_file: $!";
my @filtered_lines = grep { /\S/ } <$input_fh>;
close $input_fh;

# 将过滤后的内容写回原文件
open my $output_fh, '>', $log_file or die "无法写入文件 $log_file: $!";
print $output_fh @filtered_lines;
close $output_fh;

写法B：模拟perl -i的就地编辑 #

Perl本身支持就地编辑文件，和命令行的-i参数效果一样，代码更简洁：

# 设置就地编辑的参数
local @ARGV = ($log_file); # 把目标文件设为ARGV输入
local $^I = ''; # 启用就地编辑，不生成备份文件（如果要备份可以设为'.bak'）

# 遍历文件每一行，只打印非空行
while (<>) {
    print if /\S/;
}

这种写法完全模拟了你原来的命令行逻辑，但不需要启动额外的Perl进程，是最优选择。

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