Search Results

Hi,

Try this one,


#! /usr/bin/perl

my $file = "path/inputfile";
my $outfile = "path/outfile";

if( open(IFILE, "<", "$file") )
{
if ( open(OFILE, ">", "$outfile") )
{
...

$ perl -ane 'if(/^>/../\*$/){if(/^>/){$F[0]=~s/^>//;$f=$F[0]}open O,">>${f}.txt";print O $_;close I}' genomes.txt


Based on your input in post #3, this above one-liner will give you three txt...

Will awk do?
awk 'BEGIN {RS=">"} FNR>1 {print > "file"NR-1".txt"}' gen.txt