免费注册 查看新帖 |

Chinaunix

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

如何得到文件中某一列不重复的字符串 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2011-10-27 15:18 |只看该作者 |倒序浏览
本帖最后由 linghu002127 于 2011-10-27 15:20 编辑

数据文件如下:(共2列,各列间用tab键分开)
CD4-H2AK5ac        10629344
CD4-H2AK5ac        10639561
CD4-H2AK5ac        10647857
CD4-H2BK120ac        16077760
CD4-H2BK120ac        20124264
CD4-H2BK120ac        20188930
CD4-H2BK5ac        2931529
CD4-H2BK5ac        7167846
CD4-H2BK5ac        7201586
CD4-H3K4ac        10629372
CD4-H3K4ac        10647846
CD4-H4K12ac        10647860
CD4-H4K12ac        11918436
CD4-H4K12ac        11920993
CD4-H4K12ac        11945447


想得到第一列的值,重复的只算一次,结果如下(tab键分开):


  1. CD4-H2AK5ac        CD4-H2BK120ac        CD4-H2BK5ac        CD4-H3K4ac        CD4-H4K12ac
复制代码
感觉用hash,但是就是搞不定,求帮忙。

论坛徽章:
0
2 [报告]
发表于 2011-10-27 15:22 |只看该作者
取出第一列 当成%hash的key
因为hash的key是uniq的
最后 keys %hash 得到你要的列表

论坛徽章:
0
3 [报告]
发表于 2011-10-27 15:37 |只看该作者
本帖最后由 linghu002127 于 2011-10-27 15:46 编辑

回复 2# dgtnk


谢谢,呵呵,太笨了~

论坛徽章:
0
4 [报告]
发表于 2011-10-27 20:33 |只看该作者
  1.   1 #!/usr/bin/perl -W
  2.   2
  3.   3 open(FILE, "<", "b.txt") or die $!;
  4.   4
  5.   5 my %hash = ();
  6.   6 while ( $line = <FILE> ) {
  7.   7         chomp($line);
  8.   8         @matches = split("\t", $line);
  9.   9         $hash{$matches[0]} = $matches[0];
  10. 10 }      
  11. 11
  12. 12 print join("\t", keys %hash);
复制代码

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
5 [报告]
发表于 2011-10-28 08:11 |只看该作者
回复 1# linghu002127

这种需求再写程序就太多余了
  1. cat file.txt|awk '{print $1}'|uniq
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP