2

次の文字列を以下の正規表現と比較したい。機能していないようです。助言がありますか?

比較する文字列: 「ユーザーが remoteexec.log で "player" @ 02:21:31 を検索しました」

これは私のperlコードです。

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

2 に答える 2

1

これは例です:

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
于 2013-07-06T07:09:14.500 に答える