| 查看: 2796 | 回复: 21 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
本地化blast注释后，想从结果中的Subject Seq-id得到Nr-annotation，求大神指导。已有1人参与
|
|||
|
如题，现在注释结果已经出来，其中Subject Seq-id（也就是比对到的nr数据库中的gi）放进一个txt文件中，如图1。 这时候，我想根据这个txt，把nr数据库（如图2）中，这些gi所代表的基因的名称一起找出来，一对一输入一个excel中。 如图2中gi|67472372|sp|P0A7T7.2|RS18_ECOLI是nr水库中的，它在txt中，想找出它后的RecName: Full=30S ribosomal protein S18 [Escherichia coli K-12]（对这个基因的说明和名字）。  图1.jpg  图2.jpg |
回复此楼» 本帖已获得的红花（最新10朵）
zhouyanli11» 猜你喜欢
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有6人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
三甲基碘化亚砜的氧化反应
已经有4人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
peterrjp
铁杆木虫 (著名写手)
- 应助: 65 (初中生)
- 金币: 24487.5
- 红花: 16
- 帖子: 2608
- 在线: 67小时
- 虫号: 395640
- 注册: 2007-06-08
- 性别: GG
- 专业: 微生物生态学
|
按你的要求修改好了，你试试： #!/usr/bin/perl my $list_file="11111111.txt"; my $tb_file="nr.txt"; my ($ll,%gi1,%gi2,@f); open INCLUDE, ">include.txt" || die "Can't open include.txt"; open TMP, $list_file || die "Can't open $list_file"; while($ll = <TMP>  {chomp $ll; @f=split/\|/,$ll; $gi1{$f[1]}++; $gi2{$f[1]}=$ll; } close(TMP); open(TMP, $tb_file) || die; while($ll = <TMP> {chomp $ll; @f=split/\|/,$ll; while ($gi1{$f[1]}){ print INCLUDE "$gi2{$f[1]}\t$f[4]\n"; $gi1{$f[1]}--; } } close TMP; close INCLUDE; |
13楼2014-10-21 22:07:58
peterrjp
铁杆木虫 (著名写手)
- 应助: 65 (初中生)
- 金币: 24487.5
- 红花: 16
- 帖子: 2608
- 在线: 67小时
- 虫号: 395640
- 注册: 2007-06-08
- 性别: GG
- 专业: 微生物生态学
2楼2014-10-21 18:05:07
3楼2014-10-21 19:22:07
peterrjp
铁杆木虫 (著名写手)
- 应助: 65 (初中生)
- 金币: 24487.5
- 红花: 16
- 帖子: 2608
- 在线: 67小时
- 虫号: 395640
- 注册: 2007-06-08
- 性别: GG
- 专业: 微生物生态学
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
大爷给跪了: 金币+20, ★★★★★最佳答案 2014-10-21 20:05:45
大爷给跪了: 金币+20, ★★★★★最佳答案 2014-10-21 20:05:45
|
代码如下，请粘贴到空白文档，保存成.pl文件 用法：假设你的第一个文件是11111111.txt（你的图1）, 第二个文件是nr.txt（你的图2），双击pl脚本，产生的include.txt就是你要的结果，可以用excel打开，自动会分成两列，第一列gi编号，第二列是编码蛋白名称 #!/usr/bin/perl my $list_file="11111111.txt"; # 输入文件1 my $tb_file="nr.txt"; # 输入文件2 my ($ll,%gi1,@f); open INCLUDE, ">include.txt" || die "Can't open include.txt"; open TMP, $list_file || die "Can't open $list_file"; while($ll = <TMP> {@f=split/\|/,$ll; $gi1{$f[1]} = 1; } close(TMP); open(TMP, $tb_file) || die; while($ll = <TMP> {chomp $ll; @f=split/\|/,$ll; if ($gi1{$f[1]}){ print INCLUDE "$f[1]\t$f[4]\n"; } } close TMP; close INCLUDE; |
» 本帖已获得的红花（最新10朵）
4楼2014-10-21 19:40:34