Your Feeds Subscriber

#!/usr/bin/perl use strict; my $logfile = "/path/to/log/file/access.log"; #my $logfile = "access.log"; my %agents; my %bot_ua = ( 'Hatena' => 'Hatena\x20RSS', 'NewsAlloy' => 'NewsAlloy', 'FreshReader' => 'FreshReader', 'Feedpath' => 'Feedpath', 'Google Reader' => 'Feedfetcher-Google', 'Rojo' => 'Rojo', 'Bloglines' => 'Bloglines', 'Livedoor Reader' => 'livedoor\x20FeedFetcher', 'FastLadder' => 'Fastladder\x20FeedFetcher', ); open(FILE, "<$logfile"); while() { my $line = $_; if ((my $ua) = grep {$line =~ /$bot_ua{$_}/} keys(%bot_ua)) { if ($line =~ ' subscriber') { $line =~ s/^.* ([0-9]+) subscriber.*\n$/\1/; $agents{$ua} = $line if ($agents{$ua} < $line); } } } close(FILE); print < Your Feeds Subscriber EOF ; my $sum = 0; while(my ($key, $value) = each(%agents)) { print "\n"; $sum += $value; } print <

$key	$value
total	$sum

EOF ;