¾Ü²ò¥Õ¥¡¥¤¥ë¥·¥¹¥Æ¥à

git¥³¥Þ¥ó¥É¤òÍøÍѤǤ­¤ë¾ì½ê¤Ç»ÈÍѤ·¤Æ¤¯¤À¤µ¤¤¡£

#!/usr/bin/perl -w

#--------------- CHECK tag ---------------------------
@main_count = ( );
$japantotal = 0;
$debian = 0;
$miraclelinux = 1;
$redhat = 2;
$suse = 3;
$valinux = 4;
$montavista = 5;
$nec = 6;
$ibm = 7;
$ntt = 8;
$google = 9;
$sony = 10;
$tripeaks = 11;
$toshiba = 12;
$hitachi = 13;
$fujitsu = 14;
$panasonic = 15;
$runesass = 16;
$nokia = 17;
$yokoga = 18;
$itochu = 19;
$fsecure = 20;
$niigata = 21;
$densan = 22;
$toudai = 23;
$naist = 24;
$keiou = 25;
$kyusyu = 26;
$OTHERJAPAN = 27;
$OTHER = 28;

$title[0] = 'debian ';
$title[1] = 'miraclelinux ';
$title[2] = 'redhat ';
$title[3] = 'SuSE ';
$title[4] = 'valinux ';
$title[5] = 'montavista ';
$title[6] = 'NEC ';
$title[7] = 'IBM ';
$title[8] = 'NTT ';
$title[9] = 'google ';
$title[10] = 'sony ';
$title[11] = 'tripeaks ';
$title[12] = 'Åì¼Ç ';
$title[13] = 'ÆüΩ ';
$title[14] = 'ÉÙ»ÎÄÌ ';
$title[15] = '¾¾²¼ÅÅ´ï ';
$title[16] = '¥ë¥Í¥µ¥¹ ¥Æ¥¯¥Î¥í¥¸ ';
$title[17] = '¥Î¥­¥¢¡¦¥¸¥ã¥Ñ¥ó ';
$title[18] = '²£²ÏÅŵ¡ ';
$title[19] = '°ËÆ£Ãé¥Æ¥¯¥Î¥½¥ê¥å¡¼¥·¥ç¥ó¥º';
$title[20] = 'ÆüËÜF-Secure ';
$title[21] = '¿·³ãÄÌ¿®µ¡ ';
$title[22] = 'ÅÅ»» ';
$title[23] = 'ÅìµþÂç³Ø¾ðÊó´ðÈ×¥»¥ó¥¿¡¼ ';
$title[24] = 'ÆàÎÉÀèü²Ê³Øµ»½ÑÂç³Ø±¡Âç³Ø ';
$title[25] = '·ÄØæµÁ½ÎÂç³Ø ';
$title[26] = '¶å½£Âç³Ø ';
$title[27] = 'OTHER JAPAN ';
$title[28] = 'OTHER ';

sub check_name {
my $name = $_[0];
my $work = $OTHER;
if ($name =~ m/A.YOSHIYAMA/i) { $work = $debian; }
elsif ($name =~ m/Akinobu Mita/i) { $work = $miraclelinux; }
elsif ($name =~ m/Akira Iguchi/i) { $work = $toshiba; }
elsif ($name =~ m/Akiyama, Nobuyuki/i) { $work = $OTHERJAPAN; }
elsif ($name =~ m/ASANO Masahiro/i) { $work = $nec; }
elsif ($name =~ m/Atsushi Nemoto/i) { $work = $toshiba; }
elsif ($name =~ m/Daikichi Osuga/i) { $work = $ntt; }
elsif ($name =~ m/FUJITA Tomonori/i) { $work = $ntt; }
elsif ($name =~ m/Gen FUKATSU/i) { $work = $panasonic; }
elsif ($name =~ m/GOTO Masanori/i) { $work = $google; }
elsif ($name =~ m/Hideaki YOSHIFUJI/i) { $work = $keiou; }
elsif ($name =~ m/Hideki Iwamoto/i) { $work = $OTHERJAPAN; }
elsif ($name =~ m/Hideki Yamane/i) { $work = $debian; }
elsif ($name =~ m/Hideo AOKI/i) { $work = $redhat; }
elsif ($name =~ m/Hideo Saito/i) { $work = $densan; }
elsif ($name =~ m/Hidetoshi Seto/i) { $work = $fujitsu; }
elsif ($name =~ m/Hifumi Hisashi/i) { $work = $ntt; }
elsif ($name =~ m/Hiro Yoshioka/i) { $work = $miraclelinux; }
elsif ($name =~ m/Hirokazu Takata/i) { $work = $runesass; }
elsif ($name =~ m/Hiroki Kaminaga/i) { $work = $sony; }
elsif ($name =~ m/Hiroshi DOYU/i) { $work = $nokia; }
elsif ($name =~ m/Hiroshi Miura/i) { $work = $panasonic; }
elsif ($name =~ m/Hiroyuki YAMAMORI/i) { $work = $OTHERJAPAN; }
elsif ($name =~ m/Hironobu Ishii/i) { $work = $fujitsu; }
elsif ($name =~ m/Ishimatsu Yasuaki/i) { $work = $fujitsu; }
elsif ($name =~ m/Ishizaki Kou/i) { $work = $toshiba; }
elsif ($name =~ m/Jun Komuro/i) { $work = $OTHERJAPAN; }
elsif ($name =~ m/Jun'ichi Nomura/i) { $work = $nec; }
elsif ($name =~ m/KaiGai Kohei/i) { $work = $nec; }
elsif ($name =~ m/KAMEZAWA Hiroyuki/i) { $work = $fujitsu; }
elsif ($name =~ m/Kaz Kojima/i) { $work = $OTHERJAPAN; }
elsif ($name =~ m/Kazunori MIYAZAWA/i) { $work = $yokoga; }
elsif ($name =~ m/Keiichiro Tokunaga/i) { $work = $fujitsu; }
elsif ($name =~ m/Ken-ichirou MATSUZAWA/i) { $work = $OTHERJAPAN; }
elsif ($name =~ m/Kenji Kaneshige/i) { $work = $fujitsu; }
elsif ($name =~ m/Kenzo Iwami/i) { $work = $nec; }
elsif ($name =~ m/Kiyoshi Ueda/i) { $work = $nec; }
elsif ($name =~ m/KUROSAWA Takahiro/i) { $work = $valinux; }
elsif ($name =~ m/MAEDA Naoaki/i) { $work = $fujitsu; }
elsif ($name =~ m/Masahito Omote/i) { $work = $OTHERJAPAN; }
elsif ($name =~ m/Masahide NAKAMURA/i) { $work = $naist; }
elsif ($name =~ m/Masami Hiramatsu/i) { $work = $hitachi; }
elsif ($name =~ m/Masatake YAMATO/i) { $work = $naist; }
elsif ($name =~ m/Masato Noguchi/i) { $work = $sony; }
elsif ($name =~ m/Masayuki Nakagawa/i) { $work = $nec; }
elsif ($name =~ m/Mitsuru Chinen/i) { $work = $ibm; }
elsif ($name =~ m/Mitsuru KANDA/i) { $work = $toshiba; }
elsif ($name =~ m/MUNEDA Takahiro/i) { $work = $fujitsu; }
elsif ($name =~ m/NAKAMURA Kenta/i) { $work = $kyusyu; }
elsif ($name =~ m/Nobuhiro Iwamatsu/i) { $work = $debian; }
elsif ($name =~ m/Noriaki TAKAMIYA/i) { $work = $ntt; }
elsif ($name =~ m/Norihiko Tomiyama/i) { $work = $itochu; }
elsif ($name =~ m/Ryusuke Konishi/i) { $work = $ntt; }
elsif ($name =~ m/Ryusuke Sakato/i) { $work = $OTHERJAPAN; }
elsif ($name =~ m/OGAWA Hirofumi/i) { $work = $miraclelinux; }
elsif ($name =~ m/Satoru Takeuchi/i) { $work = $fujitsu; }
elsif ($name =~ m/Satoshi Oshima/i) { $work = $redhat; }
elsif ($name =~ m/Seiji Munetoh/i) { $work = $ibm; }
elsif ($name =~ m/Shuya MAEDA/i) { $work = $nec; }
elsif ($name =~ m/SUGIOKA Toshinobu/i) { $work = $OTHERJAPAN; }
elsif ($name =~ m/TAKADA Yoshihito/i) { $work = $OTHERJAPAN; }
elsif ($name =~ m/Takashi Iwai/i) { $work = $suse; }
elsif ($name =~ m/Takashi Ohmasa/i) { $work = $OTHERJAPAN; }
elsif ($name =~ m/Takashi Sato/i) { $work = $nec; }
elsif ($name =~ m/Takashi YOSHII/i) { $work = $OTHERJAPAN; }
elsif ($name =~ m/Takamasa Ohtake/i) { $work = $nec; }
elsif ($name =~ m/Taku Izumi/i) { $work = $fujitsu; }
elsif ($name =~ m/Tamuki Shoichi/i) { $work = $OTHERJAPAN; }
elsif ($name =~ m/Tetsuo Handa/i) { $work = $ntt; }
elsif ($name =~ m/Tetsuo Takata/i) { $work = $ntt; }
elsif ($name =~ m/Teru KAMOGASHIRA/i) { $work = $toudai; }
elsif ($name =~ m/Tsuneo.Yoshioka/i) { $work = $fsecure; }
elsif ($name =~ m/Tsutomu Fujii/i) { $work = $nec; }
elsif ($name =~ m/Toshimune Konno/i) { $work = $OTHERJAPAN; }
elsif ($name =~ m/Toshinobu Sugioka/i) { $work = $OTHERJAPAN; }
elsif ($name =~ m/Toyo Abe/i) { $work = $montavista; }
elsif ($name =~ m/YAMAMOTO Takashi/i) { $work = $valinux; }
elsif ($name =~ m/Yasunori Goto/i) { $work = $fujitsu; }
elsif ($name =~ m/Yasuyuki Kozakai/i) { $work = $toshiba; }
elsif ($name =~ m/Yoichi Yuasa/i) { $work = $tripeaks; }
elsif ($name =~ m/YOSHIFUJI Hideaki/i) { $work = $keiou; }
elsif ($name =~ m/Yoshifumi Nishida/i) { $work = $sony; }
elsif ($name =~ m/Yoshimi Ichiyanagi/i) { $work = $ntt; }
elsif ($name =~ m/Yoshinori Sato/i) { $work = $niigata; }
# if ($work == $suse) { print "$name\n"; }
if ($work != $OTHER) { $japantotal++ }
return $work;
}

sub printall {
my $j;
for ($j=0; $j <= $#title ; $j++ ) {
print "$title[$j]\t$main_count[$j]\n";
}
print "JAPAN TOTAL $japantotal \n";
}

sub cleanall {
my $j;
for ($j=0; $j <= $#title ; $j++ ) {
$main_count[$j] = 0;
}
}

sub main {
my $data;
my $find = 0;
my $work;
my $index;

&cleanall;
$data = `git log v2.6.12-rc2..v2.6.21 | grep Author | sort`;
while ( ( $find = index ($data, "Author", $find ) ) >= 0 ) {
$work = substr($data, $find, (index($data, "\n", $find) - $find));
$index = &check_name($work);
$main_count[$index]++;
# print "$index $work\n";

$find++;
}
&printall;
}

main;