将文本从一行移动到上一行

Question

您好我有以下文件：

a,b,
c
d,e,
f
g,h,
i

我需要文件的样子：

a,b,c
d,e,f
h,h,i

即将偶数行中的每个单元格移动到上一行。

任何人都有Perl单行代码吗？

Answer 1

删除每条奇数行的换行符，如@Paulchenkiller建议

perl -i -ne 'chomp if $. % 2 == 1; print' input.txt

Answer 2

如果真的是基于成对的行：

perl -i -pe 'chomp if $. % 2' input.txt

如果区别是结尾逗号：

perl -i -pe 'chomp if /,$/' input.txt