问题说明:假设有文件夹data,里面含有很多.TXT域名的文件,而文件里有特定字符需要匹配,并输出该行。#!/usr/bin/perl -wuse strict;opendir IN,"data" || die "can't open : $!\n";open OUT,">>outfile";my @file=grep (/\.TXT/,readdir IN);foreach my $list(@file){ open TWO,"data/$list" o...【阅读全文】
#!/usr/bin/perl -w$|=1;print "input your genome sequence,then press Enter!\n";my $seq=<STDIN>;open FASTA,"$seq" or die "can not open FASTA file,$!";print "input your gff file name,then press Enter!\n";my $gff=<STDIN>;open GFF,"$gff" or die "can not open GFF file,$!";open OUT,">gene_sequence"...【阅读全文】