#!/usr/bin/perl -w
use strict;
open IN,"seq.fasta" or die $!;
open OUT,">seqlessthan30.fa" or die $!;
while(
chomp;
my $name=$_;
chomp(my $seq=
chomp(my $strand=
chomp(my $qual=
next if(length($seq)>30);
print OUT join("\n",($name,$seq,$strand,$qual)),"\n";
}
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024