如何使用perl命令结合正则表达式从文件中提取指定数字？

错误原因排查 #

你原有Perl命令的核心问题如下：

• -p参数会默认打印所有输入行，你写的正则仅做匹配判断，没有提取目标内容、也没有过滤不匹配的行
• 输入输出语法错误：| INFO.out是非法语法，你需要将目标文件作为输入源传入Perl，输出结果可通过重定向符号>存储

固定匹配实现（第一列为5的场景） #

修正后的Perl命令如下，额外增加了行首锚定^避免其他列出现5\t时误匹配：

perl -nle 'print $& if /(?<=^5\t).*?(?=\t)/' INFO.out

参数说明：

• -n：遍历输入文件的每一行，不会自动打印
• -l：自动处理行尾换行符，输出时自动添加换行
• $&：代表正则匹配到的内容

外部变量传入实现 #

不要直接拼接Shell变量到Perl正则字符串中，会有正则注入、特殊字符转义错误的问题，推荐两种安全传参方式：

方式1：通过Perl -s参数传值

# Shell中定义的目标变量
target_id=5
# 传入Perl执行匹配
perl -s -nle 'print $& if /(?<=^$id\t).*?(?=\t)/' -- -id="$target_id" INFO.out

方式2：通过环境变量传值

# 导出为Shell环境变量
export target_id=5
# Perl直接读取环境变量匹配
perl -nle 'print $& if /(?<=^$ENV{target_id}\t).*?(?=\t)/' INFO.out

更简洁的替代方案（无兼容问题） #

你要实现的是按分隔符提取列，无需依赖正则断言，用awk实现更简单高效，且所有Unix-like环境都兼容：

# 固定匹配第一列为5
awk -F'\t' '$1==5 {print $2}' INFO.out

# 传入外部变量的写法
target_id=5
awk -v id="$target_id" -F'\t' '$1==id {print $2}' INFO.out

注意事项 #

• 正则匹配时必须加行首锚定^，避免其他列出现相同数字前缀导致误匹配
• 传参时禁止直接拼接Shell变量到Perl正则或代码段中，若变量包含\、+、*等正则元字符，会导致匹配逻辑异常，极端情况会出现命令注入风险
• 若需将提取结果存入Shell变量，直接用result=$(命令)的格式捕获输出即可

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