I had join's parameters backwards. Fixed. Tested. Works.
The test:
use strict; use warnings; while (<DATA>) { my @fields; if (@fields = m{ \[ (\w{3}) \s* (\w{3}) \s* (\d{2}) \s* (\d{2}:\d{2}:\d{2})\s* (\d{4}) \] (\w*) \/ (\w*) /// Info(\(\d*\)) }xm) { push(@fields, scalar <DATA>); print(join("\n", @fields)); } } __DATA__ [Fri Sep 30 14:02:22 2005]Local/ESSBASE0///Info(1051001) Received client request: Logout (from user Procbat)
The output:
Fri Sep 30 14:02:22 2005 Local ESSBASE0 (1051001) Received client request: Logout (from user Procbat)
(Changed <> to <DATA> for test.)
In reply to Re^3: regexp in win32
by ikegami
in thread regexp in win32
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |