How to process a multi-line row string at a time

Question

I would like to get a substring between two delimiters (regular expressions) from a string. I want to use this:

while (<>) {
  if (/START/../END/) {
    next if /START/ || /END/;
    print;
  }
}

But this works on stdin lines. I would like to make it work on line by line lines. How?

+3

Vlad Vivdovitch May 24, '11 at 13:59

3 answers

Simply:

my ($between) = $string =~ /START(.*?)END/s;

Alternatively, read from the line:

use 5.010;
open my $string_fh, "<", \$string or die "Couldn't open in-memory file: $!";
while ( <$string_fh> ) {
    ...

+3

ysth May 24, '11 at 14:08

. , , $/ (, " undef ), .

0

Fredrik Pihl 24 '11 14:05

mamboking · Accepted Answer · 2011-05-24T14:20:27+0000

If you want to process a line that already contains several lines, use split:

foreach (split(/\n/, $str)) {
  if (/START/../END/) {
    next if /START/ || /END/;
    print;
  }
}