in reply to read between two strings

You could use the flip-flop operator to skip lines which are not between the %%Atom Coords and %%End Frame markers. Maybe something like this? 

#!/usr/bin/perl -w
use strict;

while (<DATA>)
{
  
  #-- Skip lines not in the section to be processed
  next unless /^%%Atom Coords/../^%%End Frame/;

  #-- Skip the section markers
  next if (/^%%Atom Coords/ or /^%%End Frame/);

  #-- Parse lines...
  print;
}

__DATA__
%%Atom Coords
-1.13 12.16 6.15
%%End Frame

more stuff...

and more stuff...

%%Atom Coords
-2.26 24.32 12.30
%%End Frame

[download]

Replies are listed 'Best First'.
•Re: Re: read between two strings
by merlyn (Sage) on May 16, 2002 at 15:13 UTC 
      #-- Skip lines not in the section to be processed 
  next unless /^%%Atom Coords/../^%%End Frame/; 
 
  #-- Skip the section markers 
  next if (/^%%Atom Coords/ or /^%%End Frame/);

    [download]
    It's bad coding practice to write and test those twice, and you don't need to, if you pay attention to the return value: 
      my $inrange = /^%%Atom Coords/../^%%End Frame/; 
  next unless $inrange;
  next if $inrange == 1 or $inrange =~ /E/; # skip first and last item
+ of range

    [download]
    Very simple. RTFM.

    -- Randal L. Schwartz, Perl hacker

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom