linux - Perl / AWK で連続する 2 行を 1 行にする

Question

以下のようなデータがあります。

abcd
join abcd
efgh
join efgh

2つの連続したペアを1つの行に結合したい. 結果:

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

cat input | paste -sd' \n'

リストが指定されている場合、区切り文字を交互に貼り付けます。

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