linux - 使用 Perl / AWK 将两行连续合并为一行

Question

我有如下数据：

abcd
join abcd
efgh
join efgh

我想将两个连续的对连接成一条线。结果：

abcd join abcd
efgh join efgh

我怎样才能在 Perl/AWK 中做到这一点？

score 13 · Accepted Answer

13

$ sed 'N;s/\n/ /' input.txt
abcd join abcd
efgh join efgh

于 2012-04-19T01:23:05.440 回答

score 8 · Accepted Answer

最简单的方法是：

paste - - < FILE

这使用空格而不是制表符连接：

paste -d" " - - < FILE

score 4 · Accepted Answer

珀尔：

perl -pe's/\n/ / if $. % 2' file

高尔夫挑战：将上述内容缩短 5 个字符。

高尔夫挑战解决方案：

perl -pe'$.%2&&s/
/ /' file

score 3 · Accepted Answer

3

cat input | paste -sd' \n'

如果给出列表，则粘贴在分隔符之间交替。

于 2015-04-10T23:50:00.987 回答

score 2 · Accepted Answer

我的第一直觉：

perl -lne 'if ($. % 2) { $last = $_; } else { print "$last $_" }'

受@kev 的 sed 解决方案启发的更简洁的版本：

perl -lpe '$_ .= " " . <>; chomp'

但我认为 sed 赢得了这一轮。

score 2 · Accepted Answer

2

awk '{getline a; printf "%-s\n", $0 " " a}' file

于 2012-04-19T08:21:53.020 回答

6 回答 6