perl - 在字符串后的文件中插入换行符

Question

我有一个独特的(对我而言)情况:我有一个文件 - file.txt 包含以下数据:

"Line1", "Line2", "Line3", "Line4"

我想在每次找到 ", 模式时插入一个换行符。file.txt 的输出应如下所示:

"Line1", 
"Line2", 
"Line3", 
"Line4"

我很难逃脱 ", 。我试过 sed -i -e "s/\",/\n/g"file.txt，但没有得到想要的结果。

我正在寻找一个使用 perl 或 sed 的单行。

Answer 1

你可以使用这个gnu sed:

sed -E 's/(",)[[:blank:]]*/\1\n/g' file.txt

"Line1",
"Line2",
"Line3",
"Line4"

注意如何在 sed 命令中使用单引号来避免不必要的转义。

如果您没有 gnu sed，那么这里有一个符合 POSIX 的 sed 解决方案:

sed -E 's/(",)[[:blank:]]*/\1\
/g' file.txt

---

要在线保存更改，请使用:

sed -i.bak -E 's/(",)[[:blank:]]*/\1\
/g' file.txt