I did it using perl, but still thank you! Here are the details
#!/usr/bin/perl
$f = $ARGV[0]; #get the file name
open (INFILE, "<$f")
or die "Can't open: $f $!";
while (<INFILE>) {
$line = $_;
chomp $line;
if ($line =~ /\>/) { #if has fasta >
close OUTFILE;
$new_file = substr($line,1);
$new_file .= ".fa";
open (OUTFILE, ">$new_file")
or die "Can't open: $new_file $!";
}
print OUTFILE "$line\n";
}
close OUTFILE;
• 0 views
•
link
updated
by
Ram
•
written
by
cloudliusihui •
•
written
by
cloudliusihui •
see How To Split One Big Sequence File Into Multiple Files With Less Than 1000 Sequences In A Single File