Просмотр исходного кода

Support both [xx:xx] and [xx:xx:xx] timestamps

Morten Brix Pedersen 25 лет назад
Родитель
Сommit
e7241751e5
1 измененных файлов с 3 добавлено и 3 удалено
  1. 3 3
      modules/Pisg/Parser/Format/mIRC.pm

+ 3 - 3
modules/Pisg/Parser/Format/mIRC.pm

@@ -3,9 +3,9 @@ package Pisg::Parser::Format::mIRC;
 use strict;
 use strict;
 $^W = 1;
 $^W = 1;
 
 
-my $normalline = '^\[(\d+):\d+\] <([^>]+)> (.*)';
-my $actionline = '^\[(\d+):\d+\] \* (\S+) (.*)';
-my $thirdline  = '^\[(\d+):(\d+)\] \*\*\* (\S+) (\S+) (\S+) (\S+) (\S+)(.*)';
+my $normalline = '^\[(\d+):\d+[^ ]+ <([^>]+)> (.*)';
+my $actionline = '^\[(\d+):\d+[^ ]+ \* (\S+) (.*)';
+my $thirdline  = '^\[(\d+):(\d+)[^ ]+ \*\*\* (\S+) (\S+) (\S+) (\S+) (\S+)(.*)';
 
 
 my ($debug);
 my ($debug);