staden-lg/tables/alus/fasta-split

18 lines
342 B
Text
Raw Normal View History

2021-12-04 13:07:58 +08:00
#! /bin/sh
AWK=gawk
for x in $*
do
echo splitting ${x}
$AWK '
BEGIN { f = ""; }
/^>/ { if ( f != "" ) close(f); f = substr($1,2);
"if [ -r " f " ] ; then echo yes ; else echo no ; fi" | getline result;
if (result == "yes") { print "File " f " already exists"; f = "";} else
print f;
next;}
{if (f != "") print $0 >> f ;}
' $x
done