用逗号分隔多行(Perl/Sed/AWK)将多行转换为一行

Question

我有多行以下数据:

foo
bar
qux
zuu
sdf
sdfasdf

我想要做的是用一行和逗号分隔它们:

foo,bar,qux,zuu,sdf,sdfasdf

什么是最好的unix单线程呢？

Answer 1

使用粘贴命令:

paste -d, -s file

Answer 2

aaa
bbb
ccc
ddd

cat file | xargs

aaa bbb ccc ddd

cat file | xargs | sed -e 's/ /,/g'

aaa,bbb,ccc,ddd

Answer 3

xargs -a your_file | sed 's/ /,/g'

这是更短的方式

Answer 4

有很多方法可以实现.您使用的工具主要取决于您自己的偏好或经验.

使用tr命令:

tr '\n' ',' < somefile

使用awk:

awk -F'\n' '{if(NR == 1) {printf $0} else {printf ","$0}}' somefile

永远不要使用`printf $ 0`,因为如果$ 0包含任何printf格式字符,它将会加密失败.printf的概要是`printf格式,数据`所以使用`printf"%s",而不是$ 0`. (13认同)
`awk'{printf NR == 1？$ 0:","$ 0}'file` (2认同)

Answer 5

根据您的输入示例,此awk行有效.(不带尾随逗号)

awk -vRS="" -vOFS=',' '$1=$1' file

测试:

kent$  echo "foo
bar
qux
zuu
sdf
sdfasdf"|awk -vRS="" -vOFS=',' '$1=$1' 
foo,bar,qux,zuu,sdf,sdfasdf

为了清楚起见并避免在以后尝试在BEGIN块中使用变量时感到惊讶,除非在文件之间将变量设置为不同的值,否则我总是使用-v.FYI省略-v和变量名之间的空格使得你的脚本不一定特定于gawk,所以我使用`-v RS =`而不是`-vRS =`. (3认同)

Answer 6

Perl单线:

perl -pe'chomp, s/$/,/ unless eof' file

或者,如果你想更加神秘:

perl '-peeof||chomp&&s/$/,/' file