使用 sed 转义特殊字符

Question

我有一个从字符串生成字符数组的脚本：

#!/bin/bash
while [ -n "$1" ]
do
    echo -n "{" && echo -n "$1" | sed -r "s/((\\\\x[0-9a-fA-F]+)|(\\\\[0-7]{1,3})|(\\\\?.))/'\1',/g" && echo "0}"
    shift
done

效果很好：

$ wchar 'test\n' 'test\\n' 'test\123' 'test\1234' 'test\x12345'
{'t','e','s','t','\n',0}
{'t','e','s','t','\\','n',0}
{'t','e','s','t','\123',0}
{'t','e','s','t','\123','4',0}
{'t','e','s','t','\x12345',0}

但是因为 sed 认为每个新行都是全新的东西，所以它不处理实际的换行：

$ wchar 'test
> test'
{'t','e','s','t',
't','e','s','t',0}

如何将特殊字符（制表符、换行符等）替换为其转义版本，以便输出如下所示：

$ wchar 'test
> test'
{'t','e','s','t','\n','t','e','s','t',0}

编辑：一些几乎可行的想法：

echo -n "{" && echo -n "$1" | sed -r ":a;N;;s/\\n/\\\\n/;$!ba;s/((\\\\x[0-9a-fA-F]+)|(\\\\[0-7]{1,3})|(\\\\?.))/'\1',/g" && echo "0}"

生产：

$ wchar 'test\n\\n\1234\x1234abg
test
test'
{test\n\\n\1234\x1234abg\ntest\ntest0}

同时删除!:

echo -n "{" && echo -n "$1" | sed -r ":a;N;;s/\\n/\\\\n/;$ba;s/((\\\\x[0-9a-fA-F]+)|(\\\\[0-7]{1,3})|(\\\\?.))/'\1',/g" && echo "0}"

生产：

$ wchar 'test\n\\n\1234\x1234abg
test
test'
{'t','e','s','t','\n','\\','n','\123','4','\x1234ab','g','\n','t','e','s','t',
test0}

这很接近...

第一个没有执行最终替换，第二个没有正确添加最后一行

Answer 1

您可以在传递给sed 之前进行预过滤。 Perl 会这样做：

$ set -- 'test1
> test2'
$ echo -n "$1" | perl -0777 -pe 's/\n/\\n/g'
test1\ntest2

Answer 2

这是一个非常复杂的解决方案，但可能会满足您的需求。 GNU awk 4.1

#!/usr/bin/awk -f
@include "join"
@include "ord"
BEGIN {
  RS = "\\\\(n|x..)"
  FS = ""
}
{
  for (z=1; z<=NF; z++)
    y[++x] = ord($z)<0x20 ? sprintf("\\x%02x",ord($z)) : $z
  y[++x] = RT
}
END {
  y[++x] = "\\0"
  for (w in y)
    y[w] = "'" y[w] "'"
  printf "{%s}", join(y, 1, x, ",")
}

结果

$ cat file
a
b\nc\x0a

$ ./foo.awk file
{'a','\x0a','b','\n','c','\x0a','\0'}