コンピュータの技術書出版数ランキング(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"; }