37 lines
335 B
Awk
37 lines
335 B
Awk
|
#
|
||
|
|
# get fasta sequence from embl
|
||
|
|
#
|
||
|
|
|
||
|
|
/^ID / {
|
||
|
|
locus = $2
|
||
|
|
gsub(";", "", locus)
|
||
|
|
next
|
||
|
|
}
|
||
|
|
|
||
|
|
/^SQ / {
|
||
|
|
inseq = 1
|
||
|
|
nln = 0
|
||
|
|
delete seq
|
||
|
|
next
|
||
|
|
}
|
||
|
|
|
||
|
|
/^\/\// {
|
||
|
|
inseq = 0
|
||
|
|
print ">" locus
|
||
|
|
for (i = 1 ; i <= nln ; i++)
|
||
|
|
print seq[i]
|
||
|
|
next
|
||
|
|
}
|
||
|
|
|
||
|
|
inseq {
|
||
|
|
s = $0
|
||
|
|
gsub(" ", "", s)
|
||
|
|
gsub("[0-9]+", "", s)
|
||
|
|
seq[++nln] = s
|
||
|
|
next
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|