为日志文件创建一种“可组合”分析器

我想我理解你的要求。你需要做的是改变你的逻辑。首先需要regex将字符串分成两部分,然后提取元组。然后,您的regex不需要知道名称,您只需要两个通用的播放器来解析regex。下面是一个简短的例子:

#!/usr/bin/perl

use strict;
use Data::Dumper;

my $log = 'L 10/23/2009 - 21:03:43: "Mmm... Cycles!<67><STEAM_0:1:4779289><Red>" killed "monkey<77><STEAM_0:0:20001959><
Blue>" with "sniperrifle" (customkill "headshot") (attacker_position "1848 813 94") (victim_position "1483 358 221")';

my ($player1_string, $player2_string) = $log =~ m/(".*") killed (".*?")/;
my @player1 = $player1_string =~ m/(.*)<(\d+)><(.*)><(Red|Blue)>/;
my @player2 = $player2_string =~ m/(.*)<(\d+)><(.*)><(Red|Blue)>/;

print STDERR Dumper(\@player1, \@player2);

希望这就是你想要的。

另一种方法,但与DWP的答案相同:

my @players = 
    map { [ /(.*)<(\d+)><(.*)><(Red|Blue)>/ ] }
    $log_text =~ /"([^\"]+)" killed "([^\"]+)"/
;

日志数据包含几个平衡文本项(带引号和括号),因此您可以考虑 Text::Balanced 对于这项工作的一部分,或者可能是解析方法,而不是直接使用regex进行攻击。例如,如果玩家名称可以包含任意输入,则后者可能是脆弱的。

考虑写一篇 Regexp::Log 子类。