stat

mapper.pl

#!/usr/bin/perl -w
use strict;

my $splitre = qr/\sU:(\S+).*?\sLT:(\d+)/;
my %re = (
  'vk' => '^http://([^/]+.)?(vkontakte\.ru|vk\.com)[/$]',
  'odkl' => '^http://([^/]+.)?(odnoklassniki\.ru|odkl.ru)[/$]',
  'my' => '^http://([^/]+.)?(my.mail.ru|mir.mail.ru)[/$]'
);
my %sites = map { $_ => qr{$re{$_}} } keys(%re);

while (<>) {
  my @line = m/$splitre/g;
  next if @line == 0;
  for (my $i=0; $i<@line; $i=$i+2) {
    my $url = $line[$i];
    my $count = $line[$i+1];
    foreach my $group (keys %sites) {
      if ($url =~ m{$sites{$group}}) {
        print "$group $count\t1\n";
      }
    }
  }
}

reducer.pl

#!/usr/bin/perl -w
use strict;

my $group = '';
my $count = 0;

sub printResult
{
  print "$group\t$count\n";
}

while (<>) {
  my @line = split '\t';
  if ($group ne $line[0]) {
    if ($group ne '') {
      printResult;
    }
    $group = $line[0];
    $count = 0;
  }
  $count = $count + $line[1];
}
printResult;