[sisyphus] Статистика Сизифа по мейнтейнерам

[Andrey Brindeew <linux@abr.x9.ru>]

[-- Attachment #1.1: Type: text/plain, Size: 1592 bytes --]

Hi!

Сабж. Может кому будет интересно.

1. Считалась по SRPM'ам
2. Некоторые пакеты не учитывались (в силу того, что я их не скачиваю -
   смотрите exclude.lst, используемый мной для rsync'а)

-----+--------+--------------------------
 1182| 100.00%| TOTAL 
-----+--------+--------------------------
  352|  29.78%| AEN 
  349|  29.53%| Dmitry V. Levin 
  126|  10.66%| Stanislav Ievlev 
   88|   7.45%| Konstantin Volckov 
   35|   2.96%| Sergie Pugachev 
   33|   2.79%| Rider 
   30|   2.54%| Kostya Timoshenko 
   26|   2.20%| Alexey Voinov 
   25|   2.12%| Sergey V Turchin 
   18|   1.52%| Alexander Bokovoy 
   16|   1.35%| Grigory Milev 
   15|   1.27%| Peter 'Nidd' Novodvorsky 
   12|   1.02%| Mikhail Zabaluev 
   12|   1.02%| (none) 
   11|   0.93%| Ivan Zakharyaschev 
    6|   0.51%| Sergey Bolshakov 
    5|   0.42%| Lev Levitin 
    5|   0.42%| Yury A. Zotov 
    3|   0.25%| Konstantin Timoshenko 
    3|   0.25%| Andrey Astafiev 
    2|   0.17%| Sergey Budnevitch 
    2|   0.17%| Peter Novodvorsky 
    1|   0.08%| Guillaume Cottenceau 
    1|   0.08%| Sass 
    1|   0.08%| Igor Muratov 
    1|   0.08%| Sergey Vlasov 
    1|   0.08%| Igor Homyakov 
    1|   0.08%| Torp 
    1|   0.08%| Sergey Bolshakoff 
    1|   0.08%| Enzo Maggi 
-----+--------+--------------------------

Дополнительно в аттаче перловый скрипт, который считает статистику. Просто
скормите ему данные о packager'ах интересующих вас пакетов в формате,
выдаваемой командой "rpm -qa --qf '%{PACKAGER}\n'".

-- 
WBR, Andrey Brindeew.
"No one person can understand Perl culture completely"
(C) Larry Wall.

[-- Attachment #1.2: exclude.lst --]
[-- Type: text/plain, Size: 251 bytes --]

abisuite*
anjuta-*
aspell-fr*
clisp*
cups*
dosemu*
gabber*
glaxium*
gnumeric*
gprolog*
hylafax*
inn*
isdn*
kde-i18n-de-*
kde-i18n-fr-*
kernel-linus*
MandrakeUpdate*
mandrake_doc*
openuniv*
php*
pine*
sane-*
webmin*
wine*
xemacs*
XFree86-compat*
Zope*

[-- Attachment #1.3: packagers.stat.pl --]
[-- Type: text/plain, Size: 917 bytes --]

#!/usr/bin/perl -w

use strict;
my %stat = ();
my $counter = 0;

while (<>) {
	chomp;
	next if $_ eq '';
	s/\s*(?:\(|<).+@.+\..+(?:\)|>)\s*//;
	exists $stat{ $_ } ? $stat{ $_ } += 1 : ($stat{ $_ } = 1);
	$counter += 1;
}

my $maxlen = 0;
my $strmaxlen = 0;
map { $maxlen = length($stat{ $_ }) if length($stat{ $_ }) > $maxlen } keys %stat;
map { $strmaxlen = length($_) if length($_) > $strmaxlen } keys %stat;
$maxlen = length($counter) if $maxlen < length($counter);
print "-", "-" x $maxlen, "+--------+-", "-" x $strmaxlen, "-\n";
print sprintf(" %${maxlen}d| %6.2f%%| %s ", $counter, 100, "TOTAL"),"\n";
print "-", "-" x $maxlen, "+--------+-", "-" x $strmaxlen, "-\n";
foreach my $key (sort { $stat{ $b } <=> $stat{ $a } } keys %stat) {
	print sprintf(" %${maxlen}d| %6.2f%%| %s ", $stat{ $key }, ($stat{ $key } / $counter * 100), $key),"\n";
}
print "-", "-" x $maxlen, "+--------+-", "-" x $strmaxlen, "-\n";

[-- Attachment #2: Type: application/pgp-signature, Size: 245 bytes --]