求一个文本处理脚本

ztj111

我有一个文本，格式如下：
4301|2010/08/01|17.0|
4302|2010/08/01|12.0|
4303|2010/08/01|43.0|
4305|2010/08/01|42.0|
4306|2010/08/01|32.0|
4307|2010/08/01|28.0|
4308|2010/08/01|6.0|
4309|2010/08/01|36.0|
4310|2010/08/01|14.0|
4311|2010/08/01|31.0|
4312|2010/08/01|12.0|
4325|2010/08/01|12.0|
4331|2010/08/01|7.0|
4301|2010/08/02|27.0|
4302|2010/08/02|16.0|
4303|2010/08/02|53.0|
4304|2010/08/02|16.0|
4305|2010/08/02|36.0|
4306|2010/08/02|24.0|
4307|2010/08/02|22.0|
4308|2010/08/02|1.0|
4309|2010/08/02|31.0|
4310|2010/08/02|41.0|
4311|2010/08/02|34.0|
4312|2010/08/02|8.0|
4325|2010/08/02|15.0|
4331|2010/08/02|9.0|
4301|2010/08/03|28.0|
4302|2010/08/03|28.0|
4303|2010/08/03|49.0|
4304|2010/08/03|53.0|
4305|2010/08/03|38.0|
4306|2010/08/03|30.0|
4307|2010/08/03|32.0|
4308|2010/08/03|2.0|
4309|2010/08/03|36.0|
4310|2010/08/03|22.0|
4311|2010/08/03|24.0|
4312|2010/08/03|19.0|
4325|2010/08/03|17.0|
4331|2010/08/03|12.0|
可以采用什么命令运行后，
      2010/08/01  2010/08/02  2010/08/03
4301        17         27         28
4302        12         16         28
4303        43         53         49
4304        0        16         53
4305        42         36         38
4306        32         24         30
4307        28         22         32
4308        6         1         2
4309        36         31         36
4310        14         41         22
4311        31         34         24
4312        12         8         19
4325        12         15         17
4331        7         9         12
先谢谢大家了

iori809

回复 1# ztj111


    awk 'BEGIN{FS="|";print "      2010/08/01  2010/08/02  2010/08/03" }{a[$1]=a[$1]"       "$3}END{for(i in a){print i" "a | "sort"}}' test7.tx
      2010/08/01  2010/08/02  2010/08/03
4301        17.0       27.0       28.0
4302        12.0       16.0       28.0
4303        43.0       53.0       49.0
4304        16.0       53.0
4305        42.0       36.0       38.0
4306        32.0       24.0       30.0
4307        28.0       22.0       32.0
4308        6.0       1.0       2.0
4309        36.0       31.0       36.0
4310        14.0       41.0       22.0
4311        31.0       34.0       24.0
4312        12.0       8.0       19.0
4325        12.0       15.0       17.0
4331        7.0       9.0       12.0

ztj111

回复 2# iori809


    你好，还有点没有满足要求
4304        0        16         53
你的程序的结果是
4304        16.0       53.0

ztj111

还有一点，你的程序我在aix上运行怎么没有结果产生。
     2010/08/01  2010/08/02  2010/08/03

4301
4302
4303
4304
4305
4306
4307
4308
4309
4310
4311
4312
4325
4331

出来就是这个东西

ztj111

回复 5# 99超人


asort这个函数是您定义的？

yangyang1581

回复  99超人


asort这个函数是您定义的？
ztj111 发表于 2010-08-16 11:23

是自带的吧

bbgg1983

为什么你们都那么虚幻呢

ywlscpl

回复 1# ztj111
没有asort排序是比较麻烦
试试

1. awk -F '|' '!a[$2]++{b[++n]=$2}{c[$1","$2]+=$3;d[$1]}END{for (i=1;i<=n;i++) printf "   "b[i];print "";for (i in d) {printf i;for (j=1;j<=n;j++) printf "\t"(i","b[j] in c?c[i","b[j]]:0);print ""}}' file  | sort

复制代码

?表达式也应该不支持
改下

1. awk -F '|' '!a[$2]++{b[++n]=$2}{c[$1","$2]+=$3;d[$1]}END{for (i=1;i<=n;i++) printf "   "b[i];print "";for (i in d) {printf i;for (j=1;j<=n;j++) {printf "\t";if (i","b[j] in c) printf c[i","b[j]];else printf "0"}print ""}}' file  | sort  

复制代码