Programming Forums - View Single Post - Count number of occourences of a IP address in a log file.

mbd · Dec 21st, 2007, 10:10 AM

perl is too powerful to loop through a log file counting up instances of different ip addresses. just use something like this.

 perl Syntax (Toggle Plain Text) 
#!/usr/bin/perl
 
$log = "1.1.1.1 2.2.2.2 3.3.3.3 2.2.2.2 1.1.1.1 1.1.1.1";
while ($log =~ m/(\d\.\d\.\d\.\d)/g)
{
	$ip = $1;
	$count = ($log =~ s/$1/$1/g);
	print "$ip $count\n";
}
#!/usr/bin/perl

$log = "1.1.1.1 2.2.2.2 3.3.3.3 2.2.2.2 1.1.1.1 1.1.1.1";
while ($log =~ m/(\d\.\d\.\d\.\d)/g)
{
	$ip = $1;
	$count = ($log =~ s/$1/$1/g);
	print "$ip $count\n";
}

Dec 21st, 2007, 10:10 AM	#4
mbd Programmer Join Date: Nov 2007 Posts: 86 Rep Power: 1	Re: Count number of occourences of a IP address in a log file. perl is too powerful to loop through a log file counting up instances of different ip addresses. just use something like this. perl Syntax (Toggle Plain Text) #!/usr/bin/perl $log = "1.1.1.1 2.2.2.2 3.3.3.3 2.2.2.2 1.1.1.1 1.1.1.1"; while ($log =~ m/(\d\.\d\.\d\.\d)/g) { $ip = $1; $count = ($log =~ s/$1/$1/g); print "$ip $count\n"; } #!/usr/bin/perl $log = "1.1.1.1 2.2.2.2 3.3.3.3 2.2.2.2 1.1.1.1 1.1.1.1"; while ($log =~ m/(\d\.\d\.\d\.\d)/g) { $ip = $1; $count = ($log =~ s/$1/$1/g); print "$ip $count\n"; }