| 查看: 2459 | 回复: 26 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
请帮忙编写一个perl程序处理文本 已有1人参与
|
||
|
现在我碰到这样一个问题，我有一个文本文件1.txt，内容如下： >序列名字1（序列名字可以任意长度）ATGgcggggccccATAGGGGGGTTCCUTG。。。 >序列名字2ATGgcggggccccAgTAGGGGGGTTCCUTG。。。 >序列名字3CTGgggggggccccccgggggutg。。。。。。 后面还有很多序列 要求从这些序列里面筛选出包含一小段子序列（譬如ccccAg)的序列,以上面的三个序列为例，返回的序列文件应该是 >序列名字2ATGgcggggccccAgTAGGGGGGTTCCUTG。。。。。。 后面还有很多序列。 由于序列1，3不包含这个短序列所以被删除了。 请问怎样编写一个perl程序处理上面的问题啊？谢谢了 |
回复此楼» 猜你喜欢
课题组招2027级博士 上海工程技术大学 激光智能制造方向
已经有4人回复
-
现代”学阀”该如何界定
已经有8人回复
-
上海工程技术大学 激光智能制造课题组 2027级博士研究生招生
已经有3人回复
-
实名举报：华南理工大学物理与光电学院副院长李志远婚内两次出轨女学生（博士）
已经有16人回复
-
上海工程技术大学激光智能制造课题组｜2027级博士研究生招生公告
已经有11人回复
-
上海工程技术大学激光智能制造课题组招收博士研究生
已经有10人回复
-
申博发邮件
已经有11人回复
-
各位大神，目前国内有哪些比较好用的逆合成软件？
已经有12人回复
-
我的奶奶
已经有3人回复
-
国社科系统bug了，是不是要放榜了？
已经有9人回复
26楼2012-05-23 19:58:16
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