Thanks Chris!
I am going to give this a go now!
Cheers,
T.
On Thu, Jan 26, 2012 at 2:40 PM, Chris Stinemetz
<chrisstinem...@gmail.com>wrote:
> > ***tested***
> >
> > #!/usr/bin/perl
> > use warnings;
> > use strict;
> >
> > while ( <DATA> ) {
> > chomp;
> > my @array = split;
> > my $GeneID = $array[6];
> >
> > if ($GeneID =~ /^C|D/) {
>
> I'm still learning regex but it could be better written with;
> if ($GeneID =~ /^[CD]/) {
>
--
"Education is not to be used to promote obscurantism." - Theodonius
Dobzhansky.
"Gracias a la vida que me ha dado tanto
Me ha dado el sonido y el abecedario
Con él, las palabras que pienso y declaro
Madre, amigo, hermano
Y luz alumbrando la ruta del alma del que estoy amando
Gracias a la vida que me ha dado tanto
Me ha dado la marcha de mis pies cansados
Con ellos anduve ciudades y charcos
Playas y desiertos, montañas y llanos
Y la casa tuya, tu calle y tu patio"
Violeta Parra - Gracias a la Vida
Tiago S. F. Hori
PhD Candidate - Ocean Science Center-Memorial University of Newfoundland
