#!/usr/bin/perl use strict; while( <DATA> ) { if ( /\s+\w+\s+\d+\.\.\d+/ ... /\"GeneID:\d+\"/ ) { print "$1 $2 $3" if ( /\s+(\w+)\s+(\d+)\.\.(\d+)/ ); print " $1" if ( /\/(gene=.*)/ ); print " $1" if ( /\/(transcript_id=.*)/ ); print "\n" if ( /\"GeneID:\d+\"/ ); } }
In reply to Re: File Parsing issue
by bichonfrise74
in thread File Parsing issue
by cowboyrocks
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |