二话不说，上代码，需要安装BioPerl 123456789101112131415161718192021#!/usr/bin/perluse strict;use warnings;use Bio::SeqIO;# Author: Li