AIX（没有GNU sed/awk）连接线如果在末尾没有控制M或\ r字符

Question

如果文件不控制M字符，我正在寻找连接线的方式。 AIX有它的标准awk和sed工具，但不是GNU

问题：我们从第三方获取文件，从Windows。并且该文件在每行的结尾处具有^ M（即\ r）字符，期望某些行中的某些行中的数据本身具有\ n字符。因此，需要加入具有这个额外字符的行。

数据例如：

col1|col2|col3|col4|col5|^M 
a1|a2|a3|a4|a5|^M 
b1|b2|b3|b 
4|b5|^M 
c1|c2|c3|c4|c5|^M 

预期的输出。

col1|col2|col3|col4|col5|^M 
a1|a2|a3|a4|a5|^M 
b1|b2|b3|b4|b5|^M 
c1|c2|c3|c4|c5|^M 

非常感谢您的帮助。

Answer 1

只是为了记录，perl处理\ n，\ r等非常好的转换，没有非gnu sed的限制 - 实际上perl -pe可以直接替换sed。

所以这个操作在BSD运行良好：

$ echo -ne "abc\r\ndef\nijk\r\nlmn\r\n" |cat -vte 
abc^M$ 
def$ 
ijk^M$ 
lmn^M$ 

$ echo -ne "abc\r\ndef\nijk\r\nlmn\r\n" |perl -pe "s/\r\n/\0/g;s/\n//g;s/\0/\r\n/g" |cat -vte 
abc^M$ 
defijk^M$ 
lmn^M$ 

Answer 2

通过输入^V（Ctrl-V），然后按“返回”键，可以使用文字回车符。

以下sed(1)脚本遍历不以回车结尾的行，删除不需要的行提要：

sed ' 
:label 
/^M$/! { 
    N 
    s/\n// 
    blabel 
}' 

为一条线：

sed -e ':l' -e '/^M$/!{N;s/\n//;bl' -e '}'