急！急！如何将一个文件的格式改变成特定的格式？

xychamp

请教各位高手，我有一个文件test.txt，格式如下：
dsls        192.168.76.66
dsm0        221.179.215.12
dsm1        221.179.215.12
dsm2        221.179.215.12
dsm3        221.179.215.12
dsm4        221.179.215.12
dsm5        221.179.215.12
dsm6        221.179.215.12
dsmo        221.179.215.12
dsv0        192.168.94.161
dsv1        192.168.94.161
dsv2        192.168.94.161
dsv3        192.168.94.161
dsw0        192.168.94.161
dsw1        192.168.94.161
dsw2        192.168.94.161
dsw3        192.168.94.161
dsw4        192.168.94.161
dswo        192.168.94.161
dswp        192.168.94.161
hz0f        192.168.94.177
hz10        192.168.94.177
hz11        192.168.94.177
hz12        192.168.94.177
hz13        192.168.94.177
hz14        192.168.94.177
hz15        192.168.94.177
hz16        192.168.94.177

先要将这个文件生成一个新的文件，格式如下：
192.168.76.66
dsls
221.179.215.12
dsm0,dsm1,dsm2,dsm3,dsm4,dsm5,dsm6,dsmo
192.168.94.161
dsv0,dsv1,dsv2,dsv3,dsw0,dsw1,dsw2,dsw3,dsw4,dswo,dswp       
192.168.94.177
hz0f,hz10,hz11,hz12,hz13

err7dd

awk '{a[$2]=a[$2]" "$1 }END{for (i in a) print i"\n"a}'  test.txt

xychamp

还是不行啊，报错：fatal: attempt to use array `a' in a scalar context

chenwenming

原帖由 err7dd 于 2008-5-7 09:58 发表
awk '{a[$2]=a[$2]" "$1 }END{for (i in a) print i"\n"a［i］}'  test.txt

在a后面有a［i］

xychamp

十分感谢，已解决。

err7dd

呵呵，没注意，随手写的没测

whp126003

有意思

blackold

楼上的好方法。
$ awk '{ if (a != $2) {printf("\n%s\n%s ", $2,$1); a = $2}  else printf("%s ",$1) }' urfile.

[ 本帖最后由 blackold 于 2008-5-7 15:53 编辑 ]

__lxmxn__

1. perl -lane 'push@{$h->{$F[1]}},$F[0];END{for(keys %$h){print $_,"\n",join(",",@{$h->{$_}})}}' test.txt

复制代码

cjaizss

如果不会出现错开的情况的话，那么

1. 
   
2. awk 'NF!=2{next}tmp!=$2{if(tmp!="")printf "\n";print $2;printf "%s",$1;tmp=$2;next}{printf ",%s",$1}END{printf"\n"}'
   

复制代码