Perl 的IP比對

iis log perl

lalelee 2015-06-12 17:41:59 ‧ 2507 瀏覽

我有一個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 .....

我用

while(&lt;FILE>){
  if($_ =~ /(\d+\.\d+\.\d+\.\d+)/g){
...} 
    $data .= $& . "\n";
    $ip{$&}++;
    $cnt++;  }

但都只能比對到第一個IP "172.16.18.11" ,但我希望比對到的是"172.16.13.74" 後面這個,
請問要怎樣改比較好呢 ?

Perl新手感謝不盡

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

weiclin

iT邦高手 4 級 ‧ 2015-06-12 17:52:41

最佳解答

我是覺得不需要用到 regexp 啦..用空白去切欄位就行了
或是把你的程式改成類似這樣

&lt;pre class="c" name="code">
if(/\d+\.\d+\.\d+\.\d+.*?(\d+\.\d+\.\d+\.\d+)/) {
    print $1; // 第二個 ip
}

回應 1
分享
檢舉

lalelee iT邦新手 4 級 ‧ 2015-06-15 11:06:57 檢舉

感謝你的熱心回答^^
我自己也找到另一個版本, 來分享一下給後面的人

&lt;pre class="c" name="code">use Regexp::Common qw/net/;
my $IPv4 = $RE{net}{IPv4};
while(&lt;FILE>){
  if(my @matched = $_ =~ /\b($IPv4)\b/g){   # $matched[1] 就是每一行的第二組IP
   	my $ok = $matched[1];

登入發表回應

我要發表回答

立即登入回答

參賽組數

1123 組

團體組數

52 組

累計文章數

23096 篇

完賽人數

656 人

15th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 2018鐵人賽 javascript 2017鐵人賽 python windows php c# windows server linux css react 程式設計 vue.js

IT邦幫忙

Perl 的IP比對

1 個回答

我要發表回答

標記使用者