假设你引用的字段不包含换行符，这看起来极不可能，因为你提供了一个例子，你说“我有一个简单的文本文件是管道分隔的。”，你所需要的就是下面的，在每个Unix机器上的任何shell中使用任何awk：

$ awk 'BEGIN{FS=OFS="\""} {for (i=2; i<=NF; i+=2) gsub(/\|/,";",$i); print}' file
a|b|c|d|"1;2;3"|e|f|g
a|b|c|d|"1;2"|e|f|g
a|b|c|d|"1;2;3;4;5"|e|f|g

另请参见whats-the-most-robust-way-to-efficiently-parse-csv-using-awk。
我知道你说“正则表达式将是首选”，从技术上讲，上面确实使用了正则表达式，但可能不是以你期望的方式，所以请记住这句话：
Some people, when confronted with a problem, think "I know, I'll use regular expressions." Now they have two problems.

使用正则表达式替换字符串中的某些字符
如果你想这样做，那么我提出以下解决方案，它利用了perl的正面外观特性，让file.txt内容

a|b|c|d|"1|2|3"|e|f|g|"7|8|9"
a|b|c|d|"1|2"|e|f|g|"7|8|9"|h
a|b|c|d|"1|2|3|4|5"|e|f|g

那么

perl -p -e 's/[|](?=[^"]*"[^"]*("[^"]*"[^"]*)*$)/;/g' file.txt

给出输出

a|b|c|d|"1;2;3"|e|f|g|"7;8;9"
a|b|c|d|"1;2"|e|f|g|"7;8;9"|h
a|b|c|d|"1;2;3;4;5"|e|f|g

说明：-p -e表示使用sed模式，然后全局I（g）替换|当且仅当它后跟 * 奇数 * 个零或更多的非"后跟"运行，注意[^"]*"[^"]*总是保持1 "，"[^"]*"[^"]*保持2 "，所以[^"]*"[^"]*("[^"]*"[^"]*)*总是保持 1 + 2n"，其中 n 是正整数。请记住$是至关重要的，否则你会发现 * 奇数 * 在每个非零 * 偶数 * 的"的数字。
注意：我稍微修改了你的文件，以测试更复杂的情况。

• （在perl 5，version 30，subversion 0中测试）*