in reply to File Parsing issue
#!/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+\"/ ); } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: File Parsing issue
by ig (Vicar) on Mar 19, 2009 at 19:51 UTC |