| 查看: 2001 | 回复: 26 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
请帮忙编写一个perl程序处理文本 已有1人参与
|
||
|
现在我碰到这样一个问题，我有一个文本文件1.txt，内容如下： >序列名字1（序列名字可以任意长度）ATGgcggggccccATAGGGGGGTTCCUTG。。。 >序列名字2ATGgcggggccccAgTAGGGGGGTTCCUTG。。。 >序列名字3CTGgggggggccccccgggggutg。。。。。。 后面还有很多序列 要求从这些序列里面筛选出包含一小段子序列（譬如ccccAg)的序列,以上面的三个序列为例，返回的序列文件应该是 >序列名字2ATGgcggggccccAgTAGGGGGGTTCCUTG。。。。。。 后面还有很多序列。 由于序列1，3不包含这个短序列所以被删除了。 请问怎样编写一个perl程序处理上面的问题啊？谢谢了 |
回复此楼» 猜你喜欢
退学或坚持读
已经有13人回复
-
国家基金申请书模板内插入图片不可调整大小?
已经有8人回复
-
多组分精馏求助
已经有6人回复
-
免疫学博士有名额，速联系
已经有8人回复
-
国家级人才课题组招收2026年入学博士
已经有6人回复
-
交叉科学部支持青年基金，对三无青椒是个机会吗？
已经有7人回复
-
青椒八年已不青，大家都被折磨成啥样了？
已经有15人回复
13楼2012-05-08 11:17:46
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