Changeset 127 in lab

Timestamp:

Oct 29, 2011 7:36:14 PM (12 years ago)

Author:

mitty

Message:

• get ip address lists from apache.log

File:

• trunk/misc/addr.pl (copied) (copied from trunk/misc/domains.pl) (1 diff)

trunk/misc/addr.pl

@@ -4 +4 @@
 use warnings;
 
-my $domain = '\@(([-a-z0-9]+\.)*[a-z]+)';
+my $ip = '(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})';
 
 my $file = shift @ARGV;
 open FILE, $file;
 
-my $domains = {};
+my $addr = {};
 while (my $line = <FILE>) {
-    if ($line =~ /$domain/oi) {
-        $domains->{$1}++;
+    if ($line =~ /^$ip/o) {
+        $addr->{$1}++;
     }
 }
 
-foreach my $key (keys %$domains) {
-    print $key, "\t", $domains->{$key}, "\n";
+foreach my $key (keys %$addr) {
+    print $key, "\t", $addr->{$key}, "\n";
 }