错过了perl正则表达式中的最后一个字符

Question

（日志狗狗）（日志需要）

^\(log (.*)[^)]\)\s*\(log (.*)[^)]\)$

它适用于最后缺少字符的例外＆＃34; s＆＃34;为：

小狗 需要

Answer 1

public int id { get; set; }
[Display(Name = "Agent ID")]

您无需否定^\(log (.*)\)\s*\(log (.*)\)$ 。

Answer 2

[^)]吃掉了s - es。你为什么需要它？

my $s = '(log doggies) (log needs)';
say for $s =~ /^\(log (.*)\)\s*\(log (.*)\)$/;

输出：

doggies
needs

Answer 3

您的.*看起来应该是[^)]*，即*任意数量的字符都没有关闭括号。给

^\(log ([^)]*)\)\s*\(log ([^)]*)\)$

或者您可以使用

获取(log xxx)的所有实例

while ( $s =~ /\(log ([^)]*)\)/g ) {
    print $1, "\n";
}