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

my %stats=();

while(<>) {
  next unless /^(\S+) .*"GET (\S+) .*ZYpp/;
  my ($ip,$repo) = ($1,$2);
  $stats{$repo}->{$ip}++;
  #print "$1\n";
}

foreach(sort keys %stats) {
  printf "%8i %s\n", int(keys %{$stats{$_}}), $_;
}