亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標題: perl求助！ [打印本頁]
作者: yang7473453    時間: 2015-02-13 21:36
標題: perl求助！
本帖最后由 yang7473453 于 2015-02-13 21:41 編輯

NW_010786190.1         46474        46670                 XP_010360621.1
NW_010786190.1         55641        55860                 XP_010360621.1
NW_010786190.1         66091        66240                 XP_010360621.1
NW_010786190.1         66489        66704                 XP_010360621.1
NW_010786203.1         9752        9838                 XP_010370913.1
NW_010786203.1         13535        13735                 XP_010370913.1
NW_010786203.1                     14755        14968                 XP_010370913.1
NW_010786203.1             9752        9838                 XP_010377713.1
NW_010786203.1         13535        13735                 XP_010377713.1

現(xiàn)有文件如上，當最右邊一樣時，最左邊也是一樣的，想要將文件變成以下格式

NW_010786190.1；XP_010360621.1；46474-46670  55641-55860  66091-66240  66489-66704
NW_010786203.1；XP_010370913.1；9752-9838  13535-13735  14755-14968
NW_010786203.1；XP_010377713.1；9752-9838  13535-13735

求perl腳本
作者: huang6894    時間: 2015-02-13 23:28
  1. #!/usr/bin/perl -w
  2. my %hash;
  3. while(<DATA>){
  4.         chomp;
  5.         my @tmp = split;
  6.         push @{$hash{$tmp[0].";".$tmp[-1].";"}},$tmp[1]."-".$tmp[2];
  7. }
  8. foreach my $keys(sort keys %hash){
  9.         print join("\t",$keys,@{$hash{$keys}}).$/;
  10. }
  11. __DATA__
  12. NW_010786190.1         46474        46670                 XP_010360621.1
  13. NW_010786190.1         55641        55860                 XP_010360621.1
  14. NW_010786190.1         66091        66240                 XP_010360621.1
  15. NW_010786190.1         66489        66704                 XP_010360621.1
  16. NW_010786203.1         9752        9838                 XP_010370913.1
  17. NW_010786203.1         13535        13735                 XP_010370913.1
  18. NW_010786203.1                     14755        14968                 XP_010370913.1
  19. NW_010786203.1             9752        9838                 XP_010377713.1
  20. NW_010786203.1         13535        13735                 XP_010377713.1
復制代碼




歡迎光臨 Chinaunix (http://www.72891.cn/) Powered by Discuz! X3.2