perlquestion
Anonymous Monk
Dear monks,
My question is related to file parsing within while loops. I have a large file containing many individual files all in the same format. <P>I want to extract certain features from each file which mainly is easy. My problem is when I need to extract everything between two markers in the file. I am struggling to get all the nice info between ORIGIN and // in each file.<P> This is how the file looks: How can I extract all the info between ORIGIN and // for each record??
<code>
# extract of file:
#===============
FEATURES Location/Qualifiers
/note="blah blah"
COUNT 200
ORIGIN
1 lots of nice info
61 lots of nice info
121 lots of nice info
//
</code>
This is my code so far:
<code>
open (FILE, $ARGV[0]) or die "unable to open FILE\n";
my ($note, $info, $features,$count);
my ($c,$d);
my @seq;
my $in_seq = 0;
my $seq = '';
while (<FILE>) {
my $line = $_;
if ($line =~ /(FEATURES)\s+(\w+)/) {
$features = $2;
}
if ($line =~ /(COUNT)\s+(\d+)/) {
$count = $2;
}
if ($line =~ /^ORIGIN/) {
# print "$line\n";
push @seq, "$line\n";
}
until ($line =~ /\/\/) {};
}
print "@seq\n";
</code>
<p><small>Retitled by [davido].</small></p>
11