Linuxのファイルシステムを詳解します

FrontPage > Japanese Linux hacker > git-scan.0.9.1.pl

gitでJapanese patchを抽出するPerl script(α版)20070506

gitコマンドを利用できる場所で使用してください。

script

#!/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;
タグ

このページへのコメント

Dont you have the impression that this blog works like drugs?? It is addictive.Id like to know how to stop reading this blog since I feel like an addict. <a href="http://www.deelsonheels.com/$3699_Orthotic_Shoe_Insoles_Arch_Support_Inserts/p133745_317584.aspx" title="custom orthotic insoles">custom orthotic insoles</a>

0
Posted by custom orthotic insoles 2013年05月24日(金) 21:50:27 返信

コメントをかく


「http://」を含む投稿は禁止されています。

利用規約をご確認のうえご記入下さい

×

この広告は60日間更新がないwikiに表示されております。

関連ソフト/文書

Firefox3 Meter  Use OpenOffice.org

管理人/副管理人のみ編集できます