Q99文件怎么打开

#!/usr/bin/perl-w#启用perl

usestrict;#启用严格的语法提示

open(in,"1.fastq")||die"openerror!\n";#打开数据源文件1.fastq，如果打开失败则终止并输出提示

open(out,">1.fasta")||die"openerror!\n";#打开输出文件1.fasta，如果打开失败则终止并输出提示

while(

printout">",$1,"\n"if(/^@(.*)/);#如果当前行内容以@开头，则将@换为>，后续内容不变

printout$_if(/^[atgc]/);#如果当前行内容以a或t或g或c开头，则输出改行内容

}#其他fastq行内容不输出到输出文件

close(in);#关闭数据源文件

close(out);#关闭输出文件