{"name":"gist: 881043","desc":"","actor":"j1n3l0","url":"https://gist.github.com/881043","snippet":"perl -MBio::SeqIO -MData::Dump=pp -e 'sub tag { ($_[0]->get_tag_values($_[1] || \"note\"))[0] }; $seq = Bio::SeqIO->new(-file=>$ARGV[0])->next_seq; pp [ map [ $_->primary_tag, tag($_, $ARGV[1]) ], sort { $a->start <=> $b->start } $seq->get_SeqFeatures ]' misc/mirko.orig/20797.gbk","actor_gravatar":"6db7c6ecdbe97a1e844c88ecf587f61f","action":"update"}