次の文字列を以下の正規表現と比較したい。機能していないようです。助言がありますか?
比較する文字列: 「ユーザーが remoteexec.log で "player" @ 02:21:31 を検索しました」
これは私のperlコードです。
my $qu_re = q{(.?) searched (.?) for "(.?)" @ (\d+):(\d+):(\d+)};
これは例です:
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