如何从命令行将每两行合并为一行?

我有一个如下格式的文本文件。第一行是“KEY”，第二行是“VALUE”。

KEY 4048:1736 string
3
KEY 0:1772 string
1
KEY 4192:1349 string
1
KEY 7329:2407 string
2
KEY 0:1774 string
1

我需要这个值和键在同一行。所以输出应该是这样的…

KEY 4048:1736 string 3
KEY 0:1772 string 1
KEY 4192:1349 string 1
KEY 7329:2407 string 2
KEY 0:1774 string 1

如果我可以使用一些分隔符，如$或:

KEY 4048:1736 string , 3

我如何将两条线合并成一条?

当前回答

在我需要合并两行(为了更容易处理)，但允许数据超过特定的情况下，我发现这是有用的

data.txt

string1=x
string2=y
string3
string4

cat data.txt | nawk '$0 ~ /string1=/ { printf "%s ", $0; getline; printf "%s\n", $0; getline } { print }' > converted_data.txt

然后输出如下:

converted_data.txt

string1=x string2=y
string3
string4

其他回答

虽然前面的解决方案似乎可以工作，但如果文档中出现一个异常，输出就会支离破碎。下面稍微安全一点。

sed -n '/KEY/{
N
s/\n/ /p
}' somefile.txt

在我需要合并两行(为了更容易处理)，但允许数据超过特定的情况下，我发现这是有用的

data.txt

string1=x
string2=y
string3
string4

cat data.txt | nawk '$0 ~ /string1=/ { printf "%s ", $0; getline; printf "%s\n", $0; getline } { print }' > converted_data.txt

然后输出如下:

converted_data.txt

string1=x string2=y
string3
string4

perl -0pE 's{^KEY.*?\K\s+(\d+)$}{ $1}msg;' data.txt > data_merged-lines.txt

-0读取整个文件，而不是逐行读取; pE用循环包装代码并打印输出，详见http://perldoc.perl.org/perlrun.html; ^KEY匹配行首的“KEY”，后面是序列前任何(.*?)的非贪婪匹配

一个或多个空格\s+，包括换行符; 一个或多个数字(\d+)，我们捕获并重新插入为$1;

后跟$的末尾。

\K方便地从替换中排除左边的所有内容，因此{$1}只替换1-2个序列，参见http://perldoc.perl.org/perlre.html。

这是我在bash中的解决方案:

while read line1; do read line2; echo "$line1, $line2"; done < data.txt

cat input.txt

KEY 4048:1736 string
3
KEY 0:1772 string
1
KEY 4192:1349 string
1
KEY 7329:2407 string
2
KEY 0:1774 string
1

paste -sd ' \n' input.txt

KEY 4048:1736 string 3
KEY 0:1772 string 1
KEY 4192:1349 string 1
KEY 7329:2407 string 2
KEY 0:1774 string 1

paste -sd ' \n' input.txt | rev | sed 's/ / , /' | rev

KEY 4048:1736 string , 3
KEY 0:1772 string , 1
KEY 4192:1349 string , 1
KEY 7329:2407 string , 2
KEY 0:1774 string , 1

推荐文章