二话不说,上代码,需要安装 BioPerl #!/usr/bin/perl use strict; use warnings; use Bio::SeqIO; # Author: Liu hualin # Date: Oct 9, 2021