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

问题描述

| 我想从字符串中获取两个定界符（正则表达式）之间的子字符串。我想用这个：

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

但这在标准输入行上有效。我想让它在字符串的行上工作。怎么样？     

解决方法

如果您想处理已经包含多行的字符串，请使用split：

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

    ,只是：

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

或者，从字符串中读取：

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

    ,有多种方法可以将多行数据转换为字符串。如果希望它在读取输入时自动发生，则需要设置to4ѭ（对于段落，可能设置为\'\'，对于整个文件，则设置为undef），以允许您一次读取多行。 请参见“多行”一节@ perldoc