Re: A loop to parse a large text file--output is empty!

[M. Kristall]

[snip]
probe:HG_U95Av2:1138_at:395:301; Interrogation_Position=2631;
...
probe:HG_U95Av2:107_at:543:519; Interrogation_Position=258; Antisense;
...
probe:HG_U95Av2:1156_at:528:483; Interrogation_Position=2054;
...
probe:HG_U95Av2:1102_s_at:541:589; Interrogation_Position=4316;
[snip]
                        if(/^>probe:\w+:(\w+):/) {
                    vvv
Perhaps you meant /^> probe:\w+:$id:/ ?
use strict;
use warnings;
my $file = "> probe:HG_U95Av2:1138_at:395:301; 
Interrogation_Position=2631; Antisense;\nTGGCTCCTGCTGAGGTCCCCTTTCC\n";
my @ID = qw(1138_at);
open (FILE, '<', \$file);
while (<FILE>) {
        foreach my $id (@ID) { # Keep magically assigned $_
                print $_ . <FILE> if (/^> probe:\w+:$id:/);
        }
}
__END__

Here's the output I get:
> probe:HG_U95Av2:1138_at:395:301; Interrogation_Position=2631; Antisense;
TGGCTCCTGCTGAGGTCCCCTTTC

HTH

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>