e4d6a8484d
Former-commit-id: 0579e878a69b7c285ca71870e9ca5730649a2fda Former-commit-id: 7cced5b488441d87bf070a9a444317db0e048880
20 lines
327 B
Awk
20 lines
327 B
Awk
#
|
|
# get fasta sequence from cds list
|
|
#
|
|
# [-v FIELD=13] CDS sequence
|
|
# [-v FIELD=14] Prot Sequence
|
|
#
|
|
|
|
BEGIN {
|
|
if (CHARPERLINE == "") CHARPERLINE = 50
|
|
if (FIELD == "") FIELD = 14
|
|
}
|
|
|
|
/^#/ { next }
|
|
|
|
{
|
|
name = $1 "@" $2 "@" $3 "@" $5 "@" $6 "@" $7 "@" $8 "@" int($9/3)
|
|
comment = $NF
|
|
PrintFasta($FIELD, name " " comment)
|
|
}
|