Question

我想将以下字符串与下面的正则表达式进行比较。它似乎没有工作。有什么建议吗？

要比较的字符串：“用户搜索remoteexec.log为”player“@ 02:21:31”

这是我的perl代码。

my $qu_re = q{(.?) searched (.?) for "(.?)" @ (\d+):(\d+):(\d+)};

Answer 1

你缺少一些量词，+：

my $qu_re = q{(.+?) searched (.+?) for "(.+?)" @ (\d+):(\d+):(\d+)};
                ^              ^          ^

否则，它们仅匹配0或1个字符。这应该适合你，但如果你问我，我宁愿使用更严格的限制：

my $qu_re = q{(\w+) searched (\w+\.log) for "(\w+)" @ (\d{2}):(\d{2}):(\d{2})};

尽管如此，我假设User，player和remoteexec可以是字母数字并包含下划线。 {2}附近\d表示只有2位数字。

Answer 2

这是一个例子：

use strict;
use warnings;

my $str = qq{User searched remoteexec.log for "player" @ 02:21:31};
my $qu_re = qr{(.+) searched (.+) for "([^"]+)" @ (\d+):(\d+):(\d+)};

if( $str =~ m/$qu_re/ ) {
    print "user: ", $1, "\n";
    print "what: ", $2, "\n";
    print "player: ", $3, "\n";
    print "when: ", "$4:$5:$6" , "\n";
}

打印：

user: User
what: remoteexec.log
player: player
when: 02:21:31

具有日志标头的正则表达式模式

2 个答案: