in reply to Re: read between two strings
in thread read between two strings
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:#-- 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/);
Very simple. RTFM.my $inrange = /^%%Atom Coords/../^%%End Frame/; next unless $inrange; next if $inrange == 1 or $inrange =~ /E/; # skip first and last item + of range
-- Randal L. Schwartz, Perl hacker
|
---|
In Section
Seekers of Perl Wisdom