标题: 请教各位：用perl 如何实现从文本筛选特定的行保存到另外一个文件

dugu072_cu

oh，我错了，$IN=<FILE>;是读入一行结束，想一次读入所有行， 简单点，先undef($/);之

seu093006

谢谢，学习了，正好对我也有帮助

essen13

你好，请问这个问题你最后怎么解决的？因为我也有这方面的需要，但我完全是个perl小白，我的序列更多，有40000多条，要一个个筛是不可能的，能不能把你的程序发一个我？多谢了!!急求！谢谢。

essen13

还想问一下，你这个程序里面input source filename是指那个文件啊？database还是这个程序文件本省？多谢。

tempo8

用BioPerl中的blast parser模块！
先开个头》》》

1. #/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use Bio::SearchIO;
   
6. 
   
7. my $in = new Bio::SearchIO(
   
8.     -format => 'blastxml',
   
9.     -file   => 'blastn.xml'
   
10. );
    
11. 
    
12. while ( my $result = $in->next_result ) {
    
13.     while ( my $hit = $result->next_hit ) {
    
14.         while ( my $hsp = $hit->next_hsp ) {
    
15.             my $id     = $hit->name;
    

复制代码

essen13

to tempo8:您好，你的程序我完全看不懂啊。是回复我的吗？

rubyish

感谢大家。。