免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 5352 | 回复: 11

求助文件合并 [复制链接]

论坛徽章:
0
发表于 2011-01-06 21:32 |显示全部楼层
已有两文件a.txt,b.txt,需要将其合并成文件c.txt,请问如何用脚本实现?谢谢!
  1. $ cat a.txt
  2. a b c d
  3. 1 2 9 7
  4. 4 5 8 9
  5. 5 3 6 1
  6. $ cat b.txt
  7. a e f d g
  8. 9 2 4 7 3
  9. 4 3 7 9 4
  10. $ cat c.txt
  11. a b c d e f g
  12. 1 2 9 7 0 0 0
  13. 4 5 8 9 0 0 0
  14. 5 3 6 1 0 0 0
  15. 9 0 0 7 2 4 3
  16. 4 0 0 9 3 7 4
复制代码

论坛徽章:
0
发表于 2011-01-06 21:53 |显示全部楼层
a和b是如何得到c的?

论坛徽章:
0
发表于 2011-01-06 22:04 |显示全部楼层
有点晕

论坛徽章:
23
15-16赛季CBA联赛之吉林
日期:2017-12-21 16:39:27白羊座
日期:2014-10-27 11:14:37申猴
日期:2014-10-23 08:36:23金牛座
日期:2014-09-30 08:26:49午马
日期:2014-09-29 09:40:16射手座
日期:2014-11-25 08:56:112015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:49:0315-16赛季CBA联赛之山东
日期:2017-12-21 16:39:1915-16赛季CBA联赛之广东
日期:2016-01-19 13:33:372015亚冠之山东鲁能
日期:2015-10-13 09:39:062015亚冠之西悉尼流浪者
日期:2015-09-21 08:27:57
发表于 2011-01-06 22:05 |显示全部楼层
这个意思吧:
  1. awk 'FNR==1{for(i=1;i<=NF;i++){b[i]=$i;c[$i]++}next}{k++;for(i=1;i<=NF;i++)a[k","b[i]]=$i}END{l=asorti(c);for(i=1;i<=l;i++)printf c[i]" ";print "";for(i=1;i<=k;i++){for(j=1;j<=l;j++)printf a[i","c[j]]?a[i","c[j]]" ":"0 ";print ""}}' a.txt b.txt > c.txt
复制代码

论坛徽章:
0
发表于 2011-01-06 22:25 |显示全部楼层
这个意思吧:
ly5066113 发表于 2011-01-06 22:05


是的,谢谢大师,后面多了一行,是否可以去除?
0 0 0 0 0 0

论坛徽章:
23
15-16赛季CBA联赛之吉林
日期:2017-12-21 16:39:27白羊座
日期:2014-10-27 11:14:37申猴
日期:2014-10-23 08:36:23金牛座
日期:2014-09-30 08:26:49午马
日期:2014-09-29 09:40:16射手座
日期:2014-11-25 08:56:112015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:49:0315-16赛季CBA联赛之山东
日期:2017-12-21 16:39:1915-16赛季CBA联赛之广东
日期:2016-01-19 13:33:372015亚冠之山东鲁能
日期:2015-10-13 09:39:062015亚冠之西悉尼流浪者
日期:2015-09-21 08:27:57
发表于 2011-01-06 22:30 |显示全部楼层
回复 5# huatuo20002008


那是你的文件最后面有空行吧。

论坛徽章:
0
发表于 2011-01-06 22:47 |显示全部楼层
回复  huatuo20002008


那是你的文件最后面有空行吧。
ly5066113 发表于 2011-01-06 22:30


赞一个,确实是文件后面有空行,修改后就好了

论坛徽章:
0
发表于 2011-01-06 23:04 |显示全部楼层
  1. awk 'FNR==1{for(i=1;i<=NF;i++){b[i]=$i;c[$i]++}next}{k++;for(i=1;i<=NF;i++)a[k","b[i]]=$i}END{l=asorti(c);for(i=1;i<=l;i++)printf c[i]" ";print "";for(i=1;i<=k;i++){for(j=1;j<=l;j++)printf a[i","c[j]]?a[i","c[j]]" ":"0 ";print ""}}' a.txt b.txt > c.txt
复制代码
大师能解释下这段脚本不?

论坛徽章:
0
发表于 2011-01-06 23:10 |显示全部楼层
看的晕晕的,你的思路是什么呢?

论坛徽章:
2
射手座
日期:2014-10-10 15:59:4715-16赛季CBA联赛之上海
日期:2016-03-03 10:27:14
发表于 2011-01-07 07:07 |显示全部楼层
本帖最后由 yinyuemi 于 2011-01-07 07:18 编辑
  1. awk ' NR==FNR{for(i=1;i<=NF;i++){a[i]=a[i]" "NR"|"$i}}NR>FNR{for(j=1;j<=NF;j++) {b[j]=b[j]" "($j~/[a-z]/?FNR:NR-1)"|"$j}} END{for (x=1;x<=NF;x++) {print a[x]"\n"b[x]}}' a.txt b.txt |awk '{for (i=2;i<=NF;i++) {a[$1]=a[$1]" "$i}} END {for (x in a) {print x,a[x]|"sort"}}' | awk '{for(i=1;i<=NF;i++){x=substr($i,1,1);a[x,NR]=substr($i,3);nf>i?nf=nf:nf=i;nr=NR}} END{for(m=1;m<=nf;m++) {for (n=1;n<=nr;n++) printf a[m,n]?a[m,n]" ":"0 ";print ""}}'
复制代码
a b c d e f g
1 2 9 7 0 0 0
4 5 8 9 0 0 0
5 3 6 1 0 0 0
9 0 0 7 2 4 3
4 0 0 9 3 7 4
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP