7 print "File $out already exists.\n";
12 print "File $in does not exist.\n";
17 open ( OUT, ">>$out" ) || die ( "Could not open file $out for writing!\n" );
19 while ( my $line = <IN> ) {
20 my $newline = &proc_line( $line );
21 if ( length( $newline ) > 0 ) {
27 close( OUT ) or die( "can't close $out: $!" );
28 close( IN ) or die( "can't close $in: $!" );
34 if ( $line =~ /^#/ ) {
37 if ( $line =~ /^Predicted coding sequence\(s\):/ ) {
40 elsif ( $line =~ /^>.*_aa\s*$/ ) {
43 elsif ( $line =~ /^>/ ) {
46 elsif ( $line !~ /[a-z]/ ) {