> ***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]/) {
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
