I would like to take a fasta file formated like
and use command line perl to move the all sample gt 8 in length to a new file. the result would be
????? How can I achieve this?
Code:
>0001
agttcgaggtcagaatt
>0002
agttcgag
>0003
ggtaacctgaCode:
>0001
agttcgaggtcagaatt
>0003
ggtaacctgaCode:
cat ${sample}.fasta | perl -lane 'while(<>){if /^>/}'