請教perl截取信息，謝謝。

xylonxiang

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

上面為數(shù)據(jù)樣本，我想取出的數(shù)據(jù)格式如下，請教perl是怎么寫，謝謝。
DUMMY.log 4721010
S.LSNSVR_PAY.log 4721010
S.LSNSVR_PAY.log 4721010
SYS_PAY.log OSMSPUB2
SYS_WEB.log jsp

sunzhiguolu

回復(fù) 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. }
   

復(fù)制代碼