Perl 非贪婪匹配

Question

我只想要捕获到 slash_flash 的第一个模式。

我试过了：

$var1 = slash_flash*_target_bit[*]_slash_hit\n

$var1 =~ s/^(.*)\*?(.*)$/$1/g if ($var1 =~ /\*/);

我得到了整个字符串：

> $var1 = slash_flash*_target_bit[*]_slash_hit

注意：$var1 可以以任何开头。所以你不能用特定的词或模式开始模式匹配。这就是我尝试 (.*) 的原因

Answer 1

首先，发布您实际运行的代码。你说的不是真的，因为你发布的甚至都没有编译。

继续前进。

• \*? 可以匹配零个字符。
• .* 可以匹配零个字符。

所以一旦第一个 .* 匹配整个字符串，\*? 和 .* 就会愉快地匹配零个字符。

也许你想要

$var =~ s/^([^*]*)\*.*$/$1/g if ($var1 =~ /\*/);

可以简写为

$var =~ s/^([^*]*)\*.*$/$1/;

甚至是

$var =~ s/^[^*]*\K\*.*$//;