| 查看: 2437 | 回复: 26 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
请帮忙编写一个perl程序处理文本 已有1人参与
|
||
|
现在我碰到这样一个问题，我有一个文本文件1.txt，内容如下： >序列名字1（序列名字可以任意长度）ATGgcggggccccATAGGGGGGTTCCUTG。。。 >序列名字2ATGgcggggccccAgTAGGGGGGTTCCUTG。。。 >序列名字3CTGgggggggccccccgggggutg。。。。。。 后面还有很多序列 要求从这些序列里面筛选出包含一小段子序列（譬如ccccAg)的序列,以上面的三个序列为例，返回的序列文件应该是 >序列名字2ATGgcggggccccAgTAGGGGGGTTCCUTG。。。。。。 后面还有很多序列。 由于序列1，3不包含这个短序列所以被删除了。 请问怎样编写一个perl程序处理上面的问题啊？谢谢了 |
回复此楼» 猜你喜欢
我不理解！
已经有27人回复
-
要骂人了，新模版改版就是要淡化问题凝练这种虚的东西，结果有个评委还在说凝练得不够
已经有16人回复
-
基金系统什么内容也没有
已经有10人回复
-
科研人应该花精力去思考如何解决问题，而不是去凝练问题
已经有8人回复
-
学科评审组评审是指会评吗？
已经有5人回复
-
梦想
已经有8人回复
-
面上合作单位盖章
已经有9人回复
-
面上函评意见出来了，像什么等级？
已经有17人回复
-
为什么资助数各大高校都创新高，自己申请怎么就这么难
已经有14人回复
-
小白求助 投论文要求的highlights应该如何写
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- Perl 生物信息学编程求助，运行出现问题，烦请帮忙查找一下错误，谢谢！
已经有3人回复
- 编写一个程序处理文本内容，删除长度<10，开头的，不以CTG结尾的那些序列
已经有7人回复
- 请教Windows系统下perl脚本的ARGV应用问题，谢谢
已经有5人回复
- Perl 编程 请大神们帮忙！！！生物信息的牛人请进
已经有11人回复
- 请帮忙翻译一个摘要，汉译英，很短的，谢绝软件翻译。谢谢！
已经有3人回复
- 求助用perl语言编一个程序把一个文件分成两个文件
已经有3人回复
- 程序语言版新子版“Shell&Perl&Python”开版了
已经有452人回复
- 写了一个fortran90的小程序，编译通不过，请大侠帮忙
已经有59人回复
- 【求助】高手帮忙处理一个文本文档
已经有8人回复
- 【求助】请教一个matlab程序，谢谢帮忙！！
已经有15人回复
- 求助一个perl 使用svg，最好要中文的。谢谢！
已经有1人回复
10楼2012-05-07 09:47:45
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
30