我有一个如下格式的文本文件。第一行是“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
我如何将两条线合并成一条?
当前回答
下面是另一种使用awk的方法:
awk 'ORS=NR%2?FS:RS' file
$ cat file 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 $ awk 'ORS=NR%2?FS:RS' file 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 As indicated by Ed Morton in the comments, it is better to add braces for safety and parens for portability. awk '{ ORS = (NR%2 ? FS : RS) } 1' file ORS stands for Output Record Separator. What we are doing here is testing a condition using the NR which stores the line number. If the modulo of NR is a true value (>0) then we set the Output Field Separator to the value of FS (Field Separator) which by default is space, else we assign the value of RS (Record Separator) which is newline. If you wish to add , as the separator then use the following: awk '{ ORS = (NR%2 ? "," : RS) } 1' file
其他回答
你可以像这样使用awk来合并2对行:
awk '{ if (NR%2 != 0) line=$0; else {printf("%s %s\n", line, $0); line="";} } \
END {if (length(line)) print line;}' flle
更通用的解决方案(允许连接多个后续行)是shell脚本。这在每一个之间增加了一条线，因为我需要可见性，但这很容易补救。在这个例子中，“key”行以:结尾，而其他行没有。
#!/bin/bash
#
# join "The rest of the story" when the first line of each story
# matches $PATTERN
# Nice for looking for specific changes in bart output
#
PATTERN='*:';
LINEOUT=""
while read line; do
case $line in
$PATTERN)
echo ""
echo $LINEOUT
LINEOUT="$line"
;;
"")
LINEOUT=""
echo ""
;;
*) LINEOUT="$LINEOUT $line"
;;
esac
done
您也可以使用以下vi命令:
:%g/.*/j
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。
sed、awk、grep的替代方案:
xargs -n2 -d'\n'
当您想要连接N行并且只需要以空格分隔的输出时，这是最好的方法。
我最初的答案是xargs -n2，它在单词而不是行上分离。-d (GNU xargs选项)可用于按任何奇异字符分割输入。
