How does perl design primers in batches around GAP in the assembly result?

In this article, the editor introduces in detail "how perl designs primers in batches around GAP in the assembly results" with detailed content, clear steps and proper handling of details. I hope that this article "perl how to design primers in batches around GAP in assembly results" can help you solve your doubts.

#! / usr/bin/perl-wuse strict;use Cwd qw (abs_path getcwd); use Getopt::Long;use Data::Dumper;use FindBin qw ($Bin $Script); use File::Basename qw (basename dirname); use Bio::SeqIO;my $BEGIN_TIME=time (); my $version= "1.0" #-# GetOptions#-- -my ($fa $flank,$epcrfa,$od,$cut,$outprefix,$PRIMER_NUM_RETURN,$PRIMER_OPT_SIZE,$PRIMER_MIN_SIZE,$PRIMER_MAX_SIZE,$PRIMER_PRODUCT_SIZE_RANGE,$PRIMER_MAX_NS_ACCEPTED) GetOptions ("help |?" = >\ & USAGE, "fa=s" = >\ $fa, "flank=s" = >\ $flank, "PRIMER_MIN_SIZE=s" = >\ $PRIMER_MIN_SIZE, "PRIMER_OPT_SIZE=s" = >\ $PRIMER_OPT_SIZE, "PRIMER_MAX_SIZE=s" = >\ $PRIMER_MAX_SIZE, "PRIMER_NUM_RETURN=s" = >\ $PRIMER_NUM_RETURN, "PRIMER_PRODUCT_SIZE_RANGE=s" = >\ $PRIMER_PRODUCT_SIZE_RANGE, "epcrfa=s" = >\ $epcrfa, "od=s" = > >\ $od "prefix=s" = >\ $outprefix,) or & USAGE & USAGE unless ($fa); sub USAGE {my $usage=