如何使用 unix shell 脚本/命令将文件中的单引号 (') 替换为双引号 (")？不能替换撇号

Question

我试图在 Unix 的文件中只用双引号 (") 替换单引号 (') 而不是撇号 (')。撇号 (') 必须保持原样。

我通过按顺序执行 3 个 sed 命令获得了所需的输出。但是，我无法解决最后一行的“假新闻”。

sed -i 's/'\''/"/g' test.txt

sed -i 's/"s/'\''s/g' test.txt

sed -i 's/s"/s'\''/g' test.txt

第一个 sed - 将所有单引号转换为双引号。

2nd sed - 将所有双引号（后跟 s）转换为单引号。

3rd sed - 将所有后跟双引号的 s 转换为单引号。

输入文件-

Hello Sir!
How are you?
How's your health?
All 'good'?
Charles' here.
'fake news'

预期输出-

Hello Sir!
How are you?
How's your health?
All "good"?
Charles' here.
"fake news"

Answer 1

要重现您的三个sed，您可以使用单个perl 正则表达式：

perl -p -e 's/([^s])'\''([^s])/$1"$2/g' test.txt

编辑：“假新闻”案例：

您可以通过以下方式处理一半的“假新闻”案例：

perl -p -e 's/([^s]|^)'\''([^s])/$1"$2/g' test.txt

要管理“新闻”案例，它需要定义可接受单引号的单词列表（姓名和姓氏）。否则，您可以添加以下过程来更改不以大写开头的单词后的引号：

perl -p -e 's/([^\w][a-z]+)s'\''/$1s"/g' test.txt

在“单个”命令中（使用管道）：

perl -p -e 's/([^s]|^)'\''([^s])/$1"$2/g' test.txt | perl -p -e 's/([^\w][a-z]+)s'\''/$1s"/g' 

给出：

先生您好！

你好吗？

你的健康状况如何？

所有“好”？

查尔斯在这里。

“假新闻”

“假新闻”

Answer 2

您可以在一次 sed 调用中运行所有命令：

sed 's/'\''/"/g;s/"s/'\''s/g;s/s"/s'\''/g'

或

sed -e 's/'\''/"/g' -e 's/"s/'\''s/g' -e 's/s"/s'\''/g'

Answer 3

这可以通过一个替代命令满足您的要求：

$ sed -E "s/'([^']*)'/\"\1\"/g" file
Hello Sir!
How are you?
How's your health?
All "good"?
Charles' here.
"fake news"

上面的方法是用双引号对替换单引号对。

'([^']*)' 匹配单引号后跟除单引号后跟单引号之外的任何字符。单引号内的字符保存在捕获组 1 中。替换 \"\1\" 获取捕获组并将其放在双引号内。

虽然这可以处理您要求的案例，但很容易想象如果没有复杂的语言分析就无法处理更复杂的案例。

另类风格

可以用另一种（但等效的）shell引用样式编写与上述相同的命令：

sed -E 's/'\''([^'\'']*)'\''/"\1"/g' file