免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
楼主: 酸奶盒

【新手】怎么用perl写一个脚本比较两个基因文件里相同的语段再输出到新的文件里 [复制链接]

论坛徽章:
28
15-16赛季CBA联赛之八一
日期:2016-02-22 19:10:4215-16赛季CBA联赛之深圳
日期:2016-12-01 10:34:0415-16赛季CBA联赛之新疆
日期:2016-12-07 10:24:2915-16赛季CBA联赛之同曦
日期:2016-12-15 12:06:43CU十四周年纪念徽章
日期:2016-12-18 13:03:4415-16赛季CBA联赛之吉林
日期:2017-01-03 15:52:2515-16赛季CBA联赛之辽宁
日期:2017-01-04 14:58:2415-16赛季CBA联赛之辽宁
日期:2017-01-15 09:42:512016科比退役纪念章
日期:2017-02-06 17:21:50黑曼巴
日期:2017-02-10 15:46:1215-16赛季CBA联赛之上海
日期:2017-03-18 10:14:5415-16赛季CBA联赛之青岛
日期:2017-03-18 22:00:44
发表于 2017-02-23 16:41 |显示全部楼层
本帖最后由 moperyblue 于 2017-02-23 16:44 编辑

回复 19# 酸奶盒

很明显 原始数据跟你提供的内容格式不一样
  1. awk -F'[:|\t]' 'NR==FNR{a[$2$3$1]=1;next}a[$2$3$4]'  GaA_GbA.txt GbA_GaA.txt > C
复制代码

论坛徽章:
0
发表于 2017-02-23 21:21 |显示全部楼层
回复 21# moperyblue

抱歉。。若是说.txt的话是我后来加上去的,我是把服务器上的linux转存过来的

论坛徽章:
0
发表于 2017-02-23 21:26 |显示全部楼层
回复 21# moperyblue

成功了耶!!!呃呃呃请教一下,这个是用的linux自带的bush shell么。。这之前我都是自己写脚本做这种事= =但是写的很烂= =

论坛徽章:
28
15-16赛季CBA联赛之八一
日期:2016-02-22 19:10:4215-16赛季CBA联赛之深圳
日期:2016-12-01 10:34:0415-16赛季CBA联赛之新疆
日期:2016-12-07 10:24:2915-16赛季CBA联赛之同曦
日期:2016-12-15 12:06:43CU十四周年纪念徽章
日期:2016-12-18 13:03:4415-16赛季CBA联赛之吉林
日期:2017-01-03 15:52:2515-16赛季CBA联赛之辽宁
日期:2017-01-04 14:58:2415-16赛季CBA联赛之辽宁
日期:2017-01-15 09:42:512016科比退役纪念章
日期:2017-02-06 17:21:50黑曼巴
日期:2017-02-10 15:46:1215-16赛季CBA联赛之上海
日期:2017-03-18 10:14:5415-16赛季CBA联赛之青岛
日期:2017-03-18 22:00:44
发表于 2017-02-23 21:31 |显示全部楼层
回复 23# 酸奶盒


一般linux系统都有awk工具 你可以查一下 man awk

论坛徽章:
0
发表于 2017-02-23 21:35 |显示全部楼层
回复 24# moperyblue

会很难么 O O刚才我整理了下数据发现拿到别的基因组就不行了,是表达式不能通用么QAQ

论坛徽章:
0
发表于 2017-02-23 21:39 |显示全部楼层
回复 24# moperyblue

我发现还是会有一些问题,能不能加个QQ或者什么的好友教我一下,我是刚学这些的新手。。拜托啦啦啦OwO

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
发表于 2017-02-23 22:29 |显示全部楼层
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;

  4. my %hData = ();
  5. while (<>){
  6.         my ($c1, $c2) = split (' ', $_, 3);
  7.         if (@ARGV){
  8.                 push (@{$hData{"$c1 $c2"}{$ARGV}}, $_);
  9.                 next;
  10.         }
  11.         ($c1, $c2) = ("gnl|$c2", $c1);
  12.         $c1 =~ y/:/|/;
  13.         next unless (exists ($hData{"$c1 $c2"}));
  14.         push (@{$hData{"$c1 $c2"}{$ARGV}}, $_);
  15. }

  16. foreach my $id (keys %hData){
  17.         my ($x, $y) = keys %{$hData{$id}};
  18.         next if ($x xor $y);
  19.         print @{$hData{$id}{$_}} for ($x, $y);
  20. }
复制代码

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
发表于 2017-02-23 22:31 |显示全部楼层
  1. perl abc.pl GbA_GaA.txt GaA_GbA.txt|wc -l
  2. 62362
复制代码

论坛徽章:
28
15-16赛季CBA联赛之八一
日期:2016-02-22 19:10:4215-16赛季CBA联赛之深圳
日期:2016-12-01 10:34:0415-16赛季CBA联赛之新疆
日期:2016-12-07 10:24:2915-16赛季CBA联赛之同曦
日期:2016-12-15 12:06:43CU十四周年纪念徽章
日期:2016-12-18 13:03:4415-16赛季CBA联赛之吉林
日期:2017-01-03 15:52:2515-16赛季CBA联赛之辽宁
日期:2017-01-04 14:58:2415-16赛季CBA联赛之辽宁
日期:2017-01-15 09:42:512016科比退役纪念章
日期:2017-02-06 17:21:50黑曼巴
日期:2017-02-10 15:46:1215-16赛季CBA联赛之上海
日期:2017-03-18 10:14:5415-16赛季CBA联赛之青岛
日期:2017-03-18 22:00:44
发表于 2017-02-23 22:51 |显示全部楼层
回复 25# 酸奶盒


应该是那些文件跟你提供的那两个文件的数据格式不一样吧 你查看一下

论坛徽章:
28
15-16赛季CBA联赛之八一
日期:2016-02-22 19:10:4215-16赛季CBA联赛之深圳
日期:2016-12-01 10:34:0415-16赛季CBA联赛之新疆
日期:2016-12-07 10:24:2915-16赛季CBA联赛之同曦
日期:2016-12-15 12:06:43CU十四周年纪念徽章
日期:2016-12-18 13:03:4415-16赛季CBA联赛之吉林
日期:2017-01-03 15:52:2515-16赛季CBA联赛之辽宁
日期:2017-01-04 14:58:2415-16赛季CBA联赛之辽宁
日期:2017-01-15 09:42:512016科比退役纪念章
日期:2017-02-06 17:21:50黑曼巴
日期:2017-02-10 15:46:1215-16赛季CBA联赛之上海
日期:2017-03-18 10:14:5415-16赛季CBA联赛之青岛
日期:2017-03-18 22:00:44
发表于 2017-02-23 22:58 |显示全部楼层
回复 26# 酸奶盒


有问题发出来一起讨论吧

1. info awk

2.
http://bbs.chinaunix.net/thread-2309494-1-1.html
http://bbs.chinaunix.net/thread-2312439-1-1.html

...
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP