免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1999 | 回复: 7
打印 上一主题 下一主题

求助了,需要横向去重,如何实现比较好? [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2011-03-27 04:50 |只看该作者 |倒序浏览
有一新情号码的文件类似如下格式, 需要横向去重,如何实现比较好?
1|2|3|4|5|5|6||||10|  --表示1-6都是10的新情号码
11|2|13|4|5|15|4||||12|
10|2|13|13|5|15|4||||1|

需要得到的输出
1|2|3|4|5|6||||||10|
11|2|13|4|5|15|||||12|
10|2|13|5|15|4|||||1|

如果出现重复的情况,从后面开始去掉重复的。

论坛徽章:
2
射手座
日期:2014-10-10 15:59:4715-16赛季CBA联赛之上海
日期:2016-03-03 10:27:14
2 [报告]
发表于 2011-03-27 05:13 |只看该作者
本帖最后由 yinyuemi 于 2011-03-27 05:28 编辑

回复 1# gdutllf2006
  1. echo "1|2|3|4|5|5|6||||10|
  2. 11|2|13|4|5|15|4||||12|
  3. 10|2|13|13|5|15|4||||1|" |awk -v FS="|" '{for(i=1;i<NF-1;i++) if($i>0&&++a[$i]==1) {printf $i FS} else if (length($i)==0){printf $i FS} else {x=x?x FS:FS};delete a;print x FS $(NF-1) FS $NF;x=""}'
  4. 1|2|3|4|5|6|||||10|
  5. 11|2|13|4|5|15|||||12|
  6. 10|2|13|5|15|4|||||1|
复制代码

论坛徽章:
0
3 [报告]
发表于 2011-03-27 08:40 |只看该作者
本帖最后由 ywlscpl 于 2011-03-27 08:44 编辑
  1. awk -F '|' '{for (i=1;i<=NF-2;i++) if (!a[$i]++) {printf $i"|";++j};for (i=1;i<=NF-j-2;i++) printf "|";print $(NF-1)"|";delete a;j=0}' file
复制代码
  1. ywlscpl@ubuntu:~$ awk -F '|' '{for (i=1;i<=NF-2;i++) if (!a[$i]++) {printf $i"|";++j};for (i=1;i<=NF-j-2;i++) printf "|";print $(NF-1)"|";delete a;j=0}' file
  2. 1|2|3|4|5|6|||||10|
  3. 11|2|13|4|5|15|||||12|
  4. 10|2|13|5|15|4|||||1|
复制代码

论坛徽章:
0
4 [报告]
发表于 2011-03-27 13:37 |只看该作者
多谢了

论坛徽章:
145
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
5 [报告]
发表于 2011-03-27 22:24 |只看该作者
有一新情号码的文件类似如下格式, 需要横向去重,如何实现比较好?
1|2|3|4|5|5|6||||10|  --表示1-6都 ...
gdutllf2006 发表于 2011-03-27 04:50



$ echo "1|2|3|4|5|5|6||||10|
11|2|13|4|5|15|4||||12|
10|2|13|13|5|15|4||||1|" | perl -ape '{%h=();s/(\d+)\|/if($h{$1}++==0){sprintf"$1|"}/ge}'
1|2|3|4|5|6||||10|
11|2|13|4|5|15||||12|
10|2|13|5|15|4||||1|

论坛徽章:
15
2015年辞旧岁徽章
日期:2015-03-03 16:54:15双鱼座
日期:2015-01-15 17:29:44午马
日期:2015-01-06 17:06:51子鼠
日期:2014-11-24 10:11:13寅虎
日期:2014-08-18 07:10:55酉鸡
日期:2014-04-02 12:24:51双子座
日期:2014-04-02 12:19:44天秤座
日期:2014-03-17 11:43:36亥猪
日期:2014-03-13 08:13:51未羊
日期:2014-03-11 12:42:03白羊座
日期:2013-11-20 10:15:18CU大牛徽章
日期:2013-04-17 11:48:45
6 [报告]
发表于 2011-03-28 07:13 |只看该作者
  1. awk -F \| '{for (i=1;i<=NF-2;i++) printf (a[$i]++)?X:$i FS}{printf $(NF-1) FS RS;delete a}' infile
复制代码

论坛徽章:
0
7 [报告]
发表于 2011-03-28 08:24 |只看该作者
to 5楼6楼

字段数应该是不变的

论坛徽章:
145
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
8 [报告]
发表于 2011-03-28 09:29 |只看该作者
本帖最后由 jason680 于 2011-03-28 10:35 编辑

>>to 5楼6楼
>>字段数应该是不变的

谢谢!!!

本来想那就更简单了....
$ echo "1|2|3|4|5|5|6||||10|
11|2|13|4|5|15|4||||12|
10|2|13|13|5|15|4||||1|" | perl -ape '{%h=();s/(\d+)/if($h{$1}++==0){sprintf"$1"}/ge;}'
1|2|3|4|5||6||||10|
11|2|13|4|5|15|||||12|
10|2|13||5|15|4||||1|

结果为了搬走中间的 ||....
又花了一翻功夫....
$ echo "1|2|3|4|5|5|6||||10|
11|2|13|4|5|15|4||||12|
10|2|13|13|5|15|4||||1|" | perl -ape '{($t,%h)=();s/(\d+)/if($h{$1}++==0){sprintf"$1"}/ge;while(s/(\|+)\|/|/){$t.=$1}s/(\d+)\|$/$t$1|/;}'
1|2|3|4|5|6|||||10|
11|2|13|4|5|15|||||12|
10|2|13|5|15|4|||||1|
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP