正则匹配关键字问题

只爱睡觉

请教个问题，求各位帮提取些log里的关键字，如：
110.143.45.135 - - [12/Jan/2012:1:09:05 +0800] "GET /index.php?dmt=0&dpp=231&bdllno=-DDJ10628-20120111-1709050128&id=0000000000000000000000000D222A812&dayitem=2*244*6&hok4n=CED8BFB0DA62793E9CC840B53332CD7127925&ts=13223216515&gayamt_doss=100&prodcdetype=0&pudacct_dayamt_coins=&version=&boneid=1&sig=7F1B7F5E18C1910786EF55F6991F2Xs5 HTTP/1.0" 200 20 "-" "-" -

我想提取110.143.45.135 dmt dpp等的参数获取到的值，如dpp = 231，我自己写了个但匹配到$9的时候就无法输出了，按道理来说标量变量不会出现这个问题，求解。

sjdy521

$10容易让perl出现歧义，推荐尽量使用\g{name}，\k{name}之类的。另外，不贴你的正则代码，让人怎么猜啊

yinyuemi

回复 1# 只爱睡觉

1. perl -le '$str="110.143.45.135 - - [12/Jan/2012:1:09:05 +0800] \"GET /index.php?dmt=0&dpp=231&bdllno=-DDJ10628-20120111-1709050128&id=0000000000000000000000000D222A812&dayitem=2*244*6&hok4n=CED8BFB0DA62793E9CC840B53332CD7127925&ts=13223216515&gayamt_doss=100&prodcdetype=0&pudacct_dayamt_coins=&version=&boneid=1&sig=7F1B7F5E18C1910786EF55F6991F2Xs5 HTTP/1.0\" 200 20 \"-\" \"-\" -";$str =~ m{((^[\d.]+)(?=\s[-])|((?<=\&)[^=\d]+=[^&\s]+)(*PRUNE))(?{print $1})(*FAIL)};'
   
2. 110.143.45.135
   
3. dpp=231
   
4. bdllno=-DDJ10628-20120111-1709050128
   
5. id=0000000000000000000000000D222A812
   
6. dayitem=2*244*6
   
7. ts=13223216515
   
8. gayamt_doss=100
   
9. prodcdetype=0
   
10. boneid=1
    
11. sig=7F1B7F5E18C1910786EF55F6991F2Xs5
    
12. 
    

复制代码

只爱睡觉

回复 4# yinyuemi

写的好强大的正则，回头我测试下，有问题在请教。

只爱睡觉

回复 3# sjdy521

1. 
   
2. #!/usr/bin/perl
   
3. open (FF,"<c:/root.txt") or die "$!";
   
4. while (<FF>) {
   
5.         if ($_=~/(\d+\.\d+\.\d+\.\d+\s-\s.\s.\d+\/\w+\/\d{4}:\d+:\d+:\d+\W.\d+\W)(dmt=\d+)\W(dpp=\d+)\W(billno=-\w+\-\d+\-\d+)\W(id=\d{1,25}\d+\w+)\W(dayitem=\d\*\d+\d\*\d)\W(hok4n=.*)\W(ts=\d+\W)/) {
   
6.                 print $1."\n".$2."\n"."$3"."\n"."$4"."\n"."$5"."\n"."$6"."\n"."$7"."\n"."$8"."\n";
   
7.                 #print $_;
   
8.         }
   
9. }
   

复制代码

目前匹配的结果：
---------- perl ----------
110.143.45.135 - - [12/Jan/2012:1:09:05 +0800]
dmt=0
dpp=231
billno=-DDJ10628-20120111-1709050128
id=0000000000000000000000000D222A812
dayitem=2*244*6
hok4n=CED8BFB0DA62793E9CC840B53332CD7127925
ts=3223216515

Output completed (0 sec consumed) - Normal Termination

目前的问题是匹配到了$9后就无法输出了了，另外正则写的锉，各位将就看了，标量变量在()里，名称有声明。

yinyuemi

回复 5# 只爱睡觉

变量名里有数字，修改了下：

1. $str =~ m{((^[\d.]+)(?=\s[-])|((?<=\&)[^=]+=[^&\s]+)(*PRUNE))(?{print $1})(*FAIL)};

复制代码

只爱睡觉

回复 7# yinyuemi

烦请帮看下6楼我写的匹配程序为何不能输出$9呢？这个匹配省去了"GET /index.php?
要是能提取出参数的值就更好了：）

yinyuemi

回复 8# 只爱睡觉


    你用3楼建议的方法试试

只爱睡觉

回复 9# yinyuemi

好的，谢谢。