感谢^^ 热心回答,
自己后来想了想用个笨方法也可以,比对到后面这个IP
if(/.*(\d+\.\d+\.\d+\.\d+)/){
... $1
}
提供之后查询的人参考
※ 引述《flu (Crazy Rhythm)》之铭言：
: ※ 引述《lalelee (Yes We Can !)》之铭言：
: : 标题: [问题] IP比对
: : 时间: Fri Jun 12 17:43:04 2015
: : 我有一个IIS Log 大概长得像这样:
: : 2015-06-05 05:41:36 W3SVC1 172.16.18.11 GET /Menu/index.htm - 80 -
: : 172.16.13.74 Mozill/4.0 ..... \n
: : 我用
: : while(<FILE>){
: : if($_ =~ /(\d+\.\d+\.\d+\.\d+)/g){
: : ...}
: use Regexp::Common qw[net] ;
: my $IPv4_pat = $RE{net}{IPv4} ; #默认是comma saparated Decimal 其他还有
: # Hex, Oct.. IPv6的版本也有
: if ( @matched = $_ =~ m/\b ($IPv4_pat) \b/gx) {
: .... #第二个会放在 $matched[1] 里面
: }
: =======
: : 但都只能比对到第一个IP "172.16.18.11" ,但我希望比对到的是"172.16.13.74" 后面这
: : 个,请问要怎样改比较好呢 ?
: : 推 herculus6502: if改成while 06/12 18:08
: 要延续在scalar context继续处理可以考虑搭配 c modifier一起用, 就是 m/.../gc
: 这部份就是和目前比对到的 pos 比较有关系