使用Perl正则或Bash替换双引号内的竖线为逗号

Perl正则方案 #

直接使用Perl的替换功能，结合e修饰符在匹配的双引号内容内部替换竖线：

perl -pi -e 's/"([^"]*)"/$1 =~ s#\|#,#gr/ge' filename

• 原理：
  1. s/"([^"]*)"/.../g 全局匹配所有双引号包裹的内容，捕获组$1保存双引号内的文本
  2. $1 =~ s#\|#,#gr 将捕获到的文本中的所有|替换为,，r修饰符返回修改后的字符串而不修改原变量
  3. e修饰符让Perl执行替换部分的代码逻辑

Bash工具方案（GNU awk） #

利用GNU awk的FPAT特性定义字段模式，精准处理带引号的字段：

awk -v FPAT='("[^"]*"|[^|]*)' '{
    for(i=1; i<=NF; i++) {
        if ($i ~ /^"/) gsub(/\|/, ",", $i)
    }
    print
}' OFS='|' filename

• 原理：
  1. FPAT='("[^"]*"|[^|]*)' 定义每个字段要么是双引号包裹的内容，要么是不含|的普通字段
  2. 遍历所有字段，若字段以"开头，则将其中的|替换为,
  3. OFS='|' 设置输出字段分隔符为|，保证输出格式和输入一致

你之前命令的问题 #

你使用的perl -pi -e 's/"\d+\|[\|\d]+/\d+,[\|\d]+/g'错误在于：

• 替换部分\d+,[\|\d]+是字面量字符串，不是正则反向引用，所以会直接输出\d+,[\|\d]+而非预期的替换后内容
• 匹配规则也局限于数字+竖线的组合，无法处理带逗号的文本（比如"First, Name"）或其他字符的情况

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