| 查看: 2488 | 回复: 26 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
请帮忙编写一个perl程序处理文本 已有1人参与
|
||
|
现在我碰到这样一个问题，我有一个文本文件1.txt，内容如下： >序列名字1（序列名字可以任意长度）ATGgcggggccccATAGGGGGGTTCCUTG。。。 >序列名字2ATGgcggggccccAgTAGGGGGGTTCCUTG。。。 >序列名字3CTGgggggggccccccgggggutg。。。。。。 后面还有很多序列 要求从这些序列里面筛选出包含一小段子序列（譬如ccccAg)的序列,以上面的三个序列为例，返回的序列文件应该是 >序列名字2ATGgcggggccccAgTAGGGGGGTTCCUTG。。。。。。 后面还有很多序列。 由于序列1，3不包含这个短序列所以被删除了。 请问怎样编写一个perl程序处理上面的问题啊？谢谢了 |
回复此楼» 猜你喜欢
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有5人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有7人回复
-
上海工程技术大学 激光智能制造课题组 2027级博士研究生招生
已经有6人回复
-
课题组招2027级博士 上海工程技术大学 激光智能制造方向
已经有6人回复
-
师弟论文见刊大半年才想起来申请专利，还能抢救一下吗？
已经有4人回复
-
有机合成以后会不会被AI改变？做科研的虫友怎么看
已经有8人回复
jackie1179
木虫 (正式写手)
- 应助: 11 (小学生)
- 金币: 1929.2
- 红花: 1
- 帖子: 460
- 在线: 47.2小时
- 虫号: 1119284
- 注册: 2010-10-11
- 专业: 生物信息学
24楼2012-05-18 09:40:35
cmdblock
银虫 (正式写手)
- 应助: 23 (小学生)
- 金币: 234.2
- 散金: 79
- 帖子: 719
- 在线: 123.7小时
- 虫号: 1520796
- 注册: 2011-12-02
- 性别: GG
- 专业: 计算机网络
2楼2012-05-04 18:49:29
3楼2012-05-04 19:46:40
【答案】应助回帖
★
感谢参与，应助指数 +1
xzhdty: 金币+1, 谢谢参与 2012-05-04 23:28:41
感谢参与，应助指数 +1
xzhdty: 金币+1, 谢谢参与 2012-05-04 23:28:41
|
我只懂一点点，希望能帮到你。 把程序另存为find.pl 运行时输入： perl find.pl 1.txt 程序部分： #!/usr/bin/perl use strict; use warnings; my $subseq="ccccAg"; my $seq; my $title; open OUTFILE, ">>outfile.txt"; while(<>  {if (/>(\w+) (\w+)/) { $title=$1; $seq=$2; if ($seq=~/$subseq/) { print ">$title\n"; print OUTFILE ">$title\n"; print OUTFILE "$seq\n"; } } } close OUTFILE; |
4楼2012-05-04 20:16:24