perl - 如何一次处理多行字符串行

Question

我想从字符串中获取两个分隔符(正则表达式)之间的子字符串。我想用这个:

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

但这适用于标准输入行。我想让它在字符串的行上工作。如何？

Answer 1

如果您的意思是要处理已包含多行的字符串，请使用拆分:

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