コンピュータの技術書出版数ランキング(1位~100位)

コンピュータの技術書を出版している出版社がどれだけ本を出版しているのか気になったので調べてみました。データはAmazonの出版社一覧から手に入れてるので、ランキングに正しさがあるのかは分かりません。ある程度の傾向は掴めると思います。

ランキング

1位 技術評論社
4873冊

2位 SBクリエイティブ
3433冊

3位 秀和システム
2850冊

4位 アスキー
2752冊

5位 翔泳社
2615冊

6位 オーム社
2555冊

7位 毎日コミュニケーションズ
2490冊

8位 日経BP社
2329冊

9位 インプレス
2092冊

10位 工学社
1615冊

11位 ナツメ社
1397冊

12位 宝島社
1323冊

13位 共立出版
1258冊

14位 ソーテック社
894冊

15位 日刊工業新聞社
863冊

16位 エーアイ出版
828冊

17位 オライリー・ジャパン
823冊

18位 KADOKAWA/アスキー・メディア...
737冊

19位 CQ出版
716冊

20位 晋遊舎
680冊

21位 エムディエヌコーポレーション
669冊

22位 コロナ社
663冊

23位 ソシム
649冊

24位 インフォレスト
647冊

25位 ローカス
614冊

26位 講談社
550冊

27位 学研
490冊

28位 森北出版
462冊

29位 日本実業出版社
461冊

30位 サイエンス社
453冊

31位 カットシステム
443冊

32位 メディアテック出版
407冊

33位 日本経済新聞出版社
406冊

34位 新星出版社
404冊

35位 東京電機大学出版局
382冊

36位 ピアソンエデュケーション
375冊

37位 マイナビ
373冊

38位 FOM出版
366冊

39位 岩波書店
360冊

40位 近代科学社
353冊

41位 丸善
350冊

42位 秀和システムトレーディング
327冊

43位 朝倉書店
325冊

44位 実教出版
319冊

45位 培風館
318冊

46位 ダイヤモンド社
313冊

47位 エスシーシー
308冊

48位 昭晃堂
293冊

49位 アスペクト
292冊

50位 東洋経済新報社
292冊

51位 ビーエヌエヌ
291冊

52位 インプレスR&D
284冊

53位 ディーアート
284冊

54位 エクスナレッジ
283冊

55位 ジャストシステム
273冊

56位 リックテレコム
271冊

57位 PHP研究所
267冊

58位 誠文堂新光社
252冊

59位 笠倉出版社
249冊

60位 NTT出版
247冊

61位 成美堂出版
245冊

62位 工学図書
242冊

63位 ソフトリサーチセンター
237冊

64位 日本文芸社
234冊

65位 パーソナルメディア
230冊

66位 英和出版社
229冊

67位 電波新聞社
229冊

68位 明日香出版社
227冊

69位 学習研究社
223冊

70位 ボーンデジタル
219冊

71位 三才ブックス
219冊

72位 日本規格協会
210冊

73位 広文社
208冊

74位 新紀元社
206冊

75位 中央経済社
195冊

76位 エクシードプレス
190冊

77位 JICC出版局
186冊

78位 ラジオ技術社
180冊

79位 工業調査会
175冊

80位 西東社
174冊

81位 KADOKAWA/中経出版
161冊

82位 日科技連出版社
160冊

83位 ソニー・マガジンズ
154冊

84位 シーアンドアール研究所
153冊

85位 リットーミュージック
153冊

86位 産業図書
153冊

87位 双葉社
147冊

88位 九天社
144冊

89位 千舷社
135冊

90位 徳間書店
132冊

91位 ダイアプレス
128冊

92位 山海堂
127冊

93位 ムイスリ出版
125冊

94位 ベストセラーズ
124冊

95位 メディアボーイ
117冊

96位 ビー・エヌ・エヌ
115冊

97位 朝日新聞社
115冊

98位 アイテック情報処理技術者教育センター
114冊

99位 日本評論社
114冊

100位 海文堂
113冊

データとプログラム

Amazonの出版社一覧を参考にします。(出版社一覧にオライリー・ジャパンがなかったので、ココを参考にしました)

データを取ってきました。データがソートされて並んでいません。

使い捨てプログラムですが、ソートしてくれました。File::Slurpモジュールを使用しました。read_fileを使うことで、一行でテキストファイルを配列データに変換してくれて便利でした。

use strict;
use warnings;
use File::Slurp;

my @lines = read_file('IT_publisher_list');

my %list;
for my $pub_str (@lines) {
  $pub_str =~ s/,//;
  $pub_str =~ /(.*) \((\d*)\)/;
  $list{$1} = $2; 
}

for my $key (sort {$list{$b} <=> $list{$a} || $a cmp $b} keys %list) {
  print $key . "=" . $list{$key} . "\n";
}