请教perl截取信息，谢谢。

xylonxiang

DUMMY.log:12-01 00:33:40,021 ERROR - 212101-服务1[4721010]不存在
S.LSNSVR_PAY.log:12-01 00:33:40,022 ERROR - OMONSVR1000000039814:212101:服务1[4721010]不存在
S.LSNSVR_PAY.log:212101:212101-服务1[4721010]不存在
SYS_PAY.log:12-01 00:34:16,810 ERROR - javax.servlet.ServletException: 212101:212101-服务1[OSMSPUB2]不存在
SYS_PAY.log:javax.servlet.ServletException: 212101:212101-服务1[OSMSPUB2]不存在
SYS_WEB.log:12-01 01:16:24,060 ERROR - javax.servlet.ServletException: 212101:212101-服务1[jsp]不存在
SYS_WEB.log:javax.servlet.ServletException: 212101:212101-服务1[jsp]不存在
SYS_WEB.log:212101:212101-服务1[jsp]不存在

上面为数据样本，我想取出的数据格式如下，请教perl是怎么写，谢谢。
DUMMY.log 4721010
S.LSNSVR_PAY.log 4721010
S.LSNSVR_PAY.log 4721010
SYS_PAY.log OSMSPUB2
SYS_WEB.log jsp

sunzhiguolu

回复 1# xylonxiang

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. foreach (<>){
   
7.    printf ("%s %s\n", $+{file}, $+{flag}) if (m{\A(?<file>[^:]+)[^\[]+\[(?<flag>[^\]]+).*\Z});
   
8. }
   

复制代码