Perl简单处理单条fasta序列的文件。 #!/usr/bin/perl -w while () { chomp;#去掉字符串结尾的$/(默认是换行符). if(/^>/)# 判断开头是>. { ($display_name,$desc)=/...