perl应用之snp提取后续处理：非ATGC行的删除

  #!/usr/bin/perl 
    # Only remain ATGC line and delete other line 
     
    use strict; 
    use warnings; 
     
    my @informations; 
    my $information; 
    my @cout=qw/1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19/; 
    my $cout; 
    my $flag=0; 
     
     
    open(WITH,"without-without_repeat_information.txt")||die("can not open!"); 
    open(OUT,">OnlyATGC.txt"); 
    while(<WITH>) 
    { 
        chomp; 
        @informations=split; 
        foreach $cout(@cout) 
        { 
            if ($informations[$cout] =~ /[^ATGC]/) 
            { 
                $flag=$flag+1; 
            } 
            else 
            { 
                next; 
            } 
        } 
        if($flag==0) 
        { 
            print OUT "$_n";  
        } 
        else 
        { 
            $flag=0; 
        } 
    }