正则表达式在中间但在末尾匹配单词？ （php崩溃:(

Question

我想找到在标签和没有行缩进的返回之间的行。 例：

myLabel:
bla
if(no)
  return
else
  foo
return

如果我使用我的最后一个返回其他单词。 例如发送它的作品。

$r1 = '^(\w[\w\d_]*:\s*\n((?!\nreturn).)*)(\n[^\s][^n]*\n)((((?!\nreturn).)*)\nsend)'; ; working regex

但是$ r2不起作用。 Perl崩溃。

$r2 = '^(\w[\w\d_]*:\s*\n((?!\nreturn).)*)(\n[^\s][^n]*\n)((((?!\nreturn).)*)\nreturn)'; ; dont working regex

这是php中用于测试的示例

$str = '^(\w[\w\d_]*:\s*\n((?!\nreturn).)*)(\n[^\s][^n]*\n)((((?!\nreturn).)*)\nreturn)';
$actual = preg_replace('/^'.$str.'/smi', "$1" . $indentStr . "$2$3", $actual);

如果这不起作用，那么我将使用循环抛出所有源代码行。 我将通过此工具使用它来漂亮地显示Autohotkey源代码： https : //github.com/sl5net/SL5_AHK_Refactor_engine

Answer 1

您的模式非常复杂，并使用“著名”技巧： ((?!\\nreturn).)*这很慢，并且如果子模式失败后不会阻止很多回溯。

您可以用更简单的方式编写模式：

$pattern = '~^\w+:\R(?:\N*\R)*?return$~m';

演示

细节：

~            # pattern delimiter
^            # anchor for the start of the line (m option)
\w+:         # the label name
\R           # alias for any kind of newline sequences
(?:\N*\R)*?  # lines until (non-greedy number of line)
return       # "return"
$            # end of the line (remove it if uneeded)
~m           # pattern delimiter, multiline option

\\N匹配除换行符以外的任何字符，无论采用哪种模式（是否使用单行）。 在这种情况下，您可以将其替换为一个点，但是它不太明确。

\\R是换行符\\r\\n ， \\n或更多奇异序列的别名。 如果您已经知道字符串中使用了哪种换行符序列，请将其替换为该序列。

看到其他版本

简而言之，该模式旨在测试一行是否以“ return”开头，而仅在一行的开头（并非在字符串的所有位置）进行测试。

Answer 2

我找到了一个实现。 完美的作品。 它使标签主体缩进，并且不会干扰周围的内容。 这是实现： https : //github.com/sl5net/SL5_AHK_Refactor_engine/blob/master/phpdesktop-msie-1.14-php-5.4.33/www/SL5_preg_contentFinder/examples/AutoHotKey/Reformatting_Autohotkey_Source.php#L192

$pattern = '/^(\w+:)(\h*\n)(?:.*\n)*?(return)/m';
$label = '^\w[\w\d_]*:';
$pattern = '/' . "($label)(\h*\R)((?:.*\n)*?)(return\b)" . '/im';
preg_match_all($pattern, $actual, $matches,PREG_OFFSET_CAPTURE);
$labelsAr = $matches[1];
$contentAr = $matches[3];
$returnAr =  $matches[4];
for($k = count($labelsAr) ; $k-- ; $k >=0 ) {
    $new = $labelsAr[$k][0]
      . "\n" . $indentStr
      . rtrim( preg_replace('/\n/ism', "\n"
        . $indentStr, $contentAr[$k][0]) )
      . "\n" . ltrim($returnAr[$k][0]) ;
    $actual = substr($actual,0,$labelsAr[$k][1])
      . $new
      . substr($actual,$returnAr[$k][1] + strlen($returnAr[$k][0]) ) ;
}