みけCATのにっき（仮）
つれづれなるまゝに、日くらし、PCにむかひて、心に移りゆくよしなし事を、そこはかとなく書きつくれば、あやしうこそものぐるほしけれ。
（本当か！？）
出典

自動枠名称審査システムを作ってみた

アバター
みけCAT
記事: 6734
登録日時: 13年前
住所: 千葉県
連絡を取る:
みけCAT に連絡する

自動枠名称審査システムを作ってみた

投稿記事 by みけCAT » 9年前

自分は定期視聴中のアニメを「枠」という独自のシステムで管理しています。
（要は公開される曜日ごとに分類しているだけです）
このシステムでは、各アニメに1個ずつ、
そのアニメ(のスタッフロール)に出ている声優の名前のうち1個を選んで「枠名称」として設定します。
この枠名称として使える名前には、今のところ以下のルールがあります。
  • 各名前について、最初(1話の前)には0点ずつ持ち点があるとする。
  • 各名前がある回に出た場合は+1点、出なかった場合は-3点を持ち点に加算する。
  • 持ち点が負になった名前は、その時点で「死亡」となり、枠名称になれない。(0点はセーフ)
簡単に言うと「任意の正の整数ｎ(ただし添字として範囲外にならないもの)について、
1話～n話で出ている割合が75%以上になるもの」ということになっています。

さて、最初に枠名称として使用しようとした名前が出続けてくれればいいですが、
予想が外れて途中で出なくなってしまうことがあります。
当然その名前の持ち点が負になってしまえば、別の枠名称候補を選ばないといけません。
最悪の場合、枠名称候補がなくなってしまうかもしれませんが、そうなったら仕方ないので作品名などを用いましょう。

このようなルールがある枠名称ですが、候補を全部手動でチェックするのはめんどくさいし、
間違えてしまう心配があります。そこで、チェックの自動化を行いました。
今は便利な世の中であり、まうまう☆ アニメ視聴記録というサイトに、
多くのアニメの声優の名前ログが載っています。
そこで、今回はこのサイトの情報を利用し、自動で枠名称候補の審査を行うプログラムを作りました。
作品のIDを与えると、wgetを用いて情報を取得し、審査の結果を出力します。

CODE: 

#!/usr/bin/perl

use strict;

# 出た場合に加算するポイント
my $exist_point = 1;
# 出なかった場合に加算するポイント
my $not_exist_point = -3;
# 初期ポイント
my $initial_point = 0;
# この値未満になったら死亡というポイント
my $threshold_point = 0;

if (@ARGV != 1) {
	die("Usage: perl maumau_sinsa.pl id\n");
}

my $id = $ARGV[0];

# テーブルを取得する
my @table_list = ();
for (my $page = 1; ; $page++) {
	open(WEB, "wget -q \"http://www.mau2.com/anime/$id/casts?page=$page\" -O - | nkf -sLu |")
	or die("wget error\n");
	my $content  = "";
	while () {$content .= $_;}
	close(WEB);
	my $got = 0;
	$content =~ s/(.*?)/push(@table_list,$1),$got=1,""/eg;
	if (!$got) {last;}
}

# 各回のCVリストを取得する
my @cv_list = ();
for(my $i = 0; $i ]*?>]*?>]*?>(.*?)/$title=$1,""/e;
	$data =~ s/]*?>]*?>.*?]*?>]*?>(.*?)/push(@cv,$2),""/eg;
	for (my $j = 0; $j //g;
		$cv[$j] =~ s/&/&/g;
	}
	if ($title ne "") {
		push(@cv_list, "$title\t" . join("\t", @cv));
	}
}

# 各回のCVリストを解析する
my @candidates = ();
my %points = {};
for (my $i = 0; $i = $threshold_point) {
		# これから参戦しても戦える(すでに死んだとみなされない)場合
		for (my $j = 0; $j  0) {
			$points{$candidates[$j]} += $exist_point;
		} else {
			$points{$candidates[$j]} += $not_exist_point;
		}
	}
	# 出力と死亡判定
	print "----- $title -----\n";
	for (my $j = 0; $j maumau_sinsa.pl girlfriendkakkokari
SYSTEM_WGETRC = c:/progra~1/wget/etc/wgetrc
syswgetrc = C:\GNUutils/etc/wgetrc
SYSTEM_WGETRC = c:/progra~1/wget/etc/wgetrc
syswgetrc = C:\GNUutils/etc/wgetrc
----- 1話 -----
佐藤聡美 : 1 pts.
佐藤利奈 : 1 pts.
名塚佳織 : 1 pts.
丹下桜 : 1 pts.
茅野愛衣 : 1 pts.
渡部優衣 : 1 pts.
豊口めぐみ : 1 pts.
佐倉綾音 : 1 pts.
高垣彩陽 : 1 pts.
石原夏織 : 1 pts.
原田ひとみ : 1 pts.
内田真礼 : 1 pts.
東山奈央 : 1 pts.
伊藤かな恵 : 1 pts.
井上喜久子 : 1 pts.
津田美波 : 1 pts.
寿美菜子 : 1 pts.
戸松遥 : 1 pts.
悠木碧 : 1 pts.
新谷良子 : 1 pts.
関俊彦 : 1 pts.
冬馬由美 : 1 pts.
大前愛華 : 1 pts.
小澤亜李 : 1 pts.
南嶋毅 : 1 pts.
中務貴幸 : 1 pts.
丹羽正人 : 1 pts.
福山綾夏 : 1 pts.
----- 2話 -----
佐藤聡美 : 2 pts.
佐藤利奈 : 2 pts.
名塚佳織 : 2 pts.
丹下桜 : 2 pts.
*** 茅野愛衣 DIED (-2 pts.)
渡部優衣 : 2 pts.
*** 豊口めぐみ DIED (-2 pts.)
佐倉綾音 : 2 pts.
高垣彩陽 : 2 pts.
*** 石原夏織 DIED (-2 pts.)
原田ひとみ : 2 pts.
内田真礼 : 2 pts.
東山奈央 : 2 pts.
*** 伊藤かな恵 DIED (-2 pts.)
*** 井上喜久子 DIED (-2 pts.)
*** 津田美波 DIED (-2 pts.)
*** 寿美菜子 DIED (-2 pts.)
*** 戸松遥 DIED (-2 pts.)
*** 悠木碧 DIED (-2 pts.)
新谷良子 : 2 pts.
*** 関俊彦 DIED (-2 pts.)
冬馬由美 : 2 pts.
*** 大前愛華 DIED (-2 pts.)
*** 小澤亜李 DIED (-2 pts.)
*** 南嶋毅 DIED (-2 pts.)
*** 中務貴幸 DIED (-2 pts.)
*** 丹羽正人 DIED (-2 pts.)
*** 福山綾夏 DIED (-2 pts.)
----- 3話 -----
佐藤聡美 : 3 pts.
*** 佐藤利奈 DIED (-1 pts.)
名塚佳織 : 3 pts.
丹下桜 : 3 pts.
*** 渡部優衣 DIED (-1 pts.)
*** 佐倉綾音 DIED (-1 pts.)
*** 高垣彩陽 DIED (-1 pts.)
原田ひとみ : 3 pts.
*** 内田真礼 DIED (-1 pts.)
*** 東山奈央 DIED (-1 pts.)
*** 新谷良子 DIED (-1 pts.)
*** 冬馬由美 DIED (-1 pts.)
----- 4話 -----
佐藤聡美 : 0 pts.
名塚佳織 : 0 pts.
丹下桜 : 0 pts.
原田ひとみ : 0 pts.
----- 5話 -----
*** 佐藤聡美 DIED (-3 pts.)
名塚佳織 : 1 pts.
丹下桜 : 1 pts.
*** 原田ひとみ DIED (-3 pts.)
----- 6話 -----
名塚佳織 : 2 pts.
*** 丹下桜 DIED (-2 pts.)
----- 7話 -----
名塚佳織 : 3 pts.
----- 8話 -----
名塚佳織 : 0 pts.
----- 9話 -----
名塚佳織 : 1 pts.
----- 10話 -----
名塚佳織 : 2 pts.
----- 11話 -----
名塚佳織 : 3 pts.

YUKI.N>
最初は大量の候補があったはずなのに、どんどん減り、名塚佳織のみがギリギリでの運用を続けていることがわかります。

[nico]http://www.nicovideo.jp/watch/1397552685[/nico]

CODE: 

YUKI.N>maumau_sinsa.pl gochuumonhausagidesuka
SYSTEM_WGETRC = c:/progra~1/wget/etc/wgetrc
syswgetrc = C:\GNUutils/etc/wgetrc
SYSTEM_WGETRC = c:/progra~1/wget/etc/wgetrc
syswgetrc = C:\GNUutils/etc/wgetrc
----- 第1羽 -----
佐倉綾音 : 1 pts.
水瀬いのり : 1 pts.
種田梨沙 : 1 pts.
清川元夢 : 1 pts.
速水奨 : 1 pts.
笹本菜津枝 : 1 pts.
----- 第2羽 -----
佐倉綾音 : 2 pts.
水瀬いのり : 2 pts.
種田梨沙 : 2 pts.
清川元夢 : 2 pts.
速水奨 : 2 pts.
*** 笹本菜津枝 DIED (-2 pts.)
----- 第3羽 -----
佐倉綾音 : 3 pts.
水瀬いのり : 3 pts.
種田梨沙 : 3 pts.
清川元夢 : 3 pts.
速水奨 : 3 pts.
----- 第4羽 -----
佐倉綾音 : 4 pts.
水瀬いのり : 4 pts.
種田梨沙 : 4 pts.
清川元夢 : 4 pts.
速水奨 : 4 pts.
----- 第5羽 -----
佐倉綾音 : 5 pts.
水瀬いのり : 5 pts.
種田梨沙 : 5 pts.
清川元夢 : 5 pts.
速水奨 : 5 pts.
----- 第6羽 -----
佐倉綾音 : 6 pts.
水瀬いのり : 6 pts.
種田梨沙 : 6 pts.
清川元夢 : 6 pts.
速水奨 : 6 pts.
----- 第7羽 -----
佐倉綾音 : 7 pts.
水瀬いのり : 7 pts.
種田梨沙 : 7 pts.
清川元夢 : 7 pts.
速水奨 : 7 pts.
----- 第8羽 -----
佐倉綾音 : 8 pts.
水瀬いのり : 8 pts.
種田梨沙 : 8 pts.
清川元夢 : 8 pts.
速水奨 : 8 pts.
----- 第9羽 -----
佐倉綾音 : 9 pts.
水瀬いのり : 9 pts.
種田梨沙 : 9 pts.
清川元夢 : 9 pts.
速水奨 : 9 pts.
----- 第10羽 -----
佐倉綾音 : 10 pts.
水瀬いのり : 10 pts.
種田梨沙 : 10 pts.
清川元夢 : 10 pts.
速水奨 : 10 pts.
----- 第11羽 -----
佐倉綾音 : 11 pts.
水瀬いのり : 11 pts.
種田梨沙 : 11 pts.
清川元夢 : 11 pts.
速水奨 : 11 pts.
----- 第12羽 -----
佐倉綾音 : 12 pts.
水瀬いのり : 12 pts.
種田梨沙 : 12 pts.
清川元夢 : 12 pts.
速水奨 : 12 pts.

YUKI.N>
第1羽で出ていなければほとんど「死亡」が発生しない、平和な世界である。

[nico]http://www.nicovideo.jp/watch/1364888035[/nico]

CODE: 

YUKI.N>maumau_sinsa.pl utanoprincesama-2
SYSTEM_WGETRC = c:/progra~1/wget/etc/wgetrc
syswgetrc = C:\GNUutils/etc/wgetrc
SYSTEM_WGETRC = c:/progra~1/wget/etc/wgetrc
syswgetrc = C:\GNUutils/etc/wgetrc
----- Op.1 -----
沢城みゆき : 1 pts.
寺島拓篤 : 1 pts.
鈴村健一 : 1 pts.
谷山紀章 : 1 pts.
宮野真守 : 1 pts.
諏訪部順一 : 1 pts.
下野紘 : 1 pts.
鳥海浩輔 : 1 pts.
森久保祥太郎 : 1 pts.
鈴木達央 : 1 pts.
蒼井翔太 : 1 pts.
中村悠一 : 1 pts.
遊佐浩二 : 1 pts.
今井由香 : 1 pts.
竹内想 : 1 pts.
若本規夫 : 1 pts.
----- Op.2 -----
沢城みゆき : 2 pts.
寺島拓篤 : 2 pts.
鈴村健一 : 2 pts.
谷山紀章 : 2 pts.
宮野真守 : 2 pts.
諏訪部順一 : 2 pts.
下野紘 : 2 pts.
鳥海浩輔 : 2 pts.
森久保祥太郎 : 2 pts.
鈴木達央 : 2 pts.
蒼井翔太 : 2 pts.
中村悠一 : 2 pts.
*** 遊佐浩二 DIED (-2 pts.)
*** 今井由香 DIED (-2 pts.)
*** 竹内想 DIED (-2 pts.)
若本規夫 : 2 pts.
----- Op.3 -----
沢城みゆき : 3 pts.
寺島拓篤 : 3 pts.
鈴村健一 : 3 pts.
谷山紀章 : 3 pts.
宮野真守 : 3 pts.
諏訪部順一 : 3 pts.
下野紘 : 3 pts.
鳥海浩輔 : 3 pts.
森久保祥太郎 : 3 pts.
鈴木達央 : 3 pts.
蒼井翔太 : 3 pts.
*** 中村悠一 DIED (-1 pts.)
若本規夫 : 3 pts.
----- Op.4 -----
沢城みゆき : 4 pts.
寺島拓篤 : 4 pts.
鈴村健一 : 4 pts.
谷山紀章 : 4 pts.
宮野真守 : 4 pts.
諏訪部順一 : 4 pts.
下野紘 : 4 pts.
鳥海浩輔 : 4 pts.
森久保祥太郎 : 0 pts.
鈴木達央 : 0 pts.
蒼井翔太 : 0 pts.
若本規夫 : 4 pts.
----- Op.5 -----
沢城みゆき : 5 pts.
寺島拓篤 : 5 pts.
鈴村健一 : 5 pts.
谷山紀章 : 5 pts.
宮野真守 : 5 pts.
諏訪部順一 : 5 pts.
下野紘 : 5 pts.
鳥海浩輔 : 5 pts.
*** 森久保祥太郎 DIED (-3 pts.)
*** 鈴木達央 DIED (-3 pts.)
*** 蒼井翔太 DIED (-3 pts.)
若本規夫 : 5 pts.
----- Op.6 -----
沢城みゆき : 6 pts.
寺島拓篤 : 6 pts.
鈴村健一 : 6 pts.
谷山紀章 : 6 pts.
宮野真守 : 6 pts.
諏訪部順一 : 6 pts.
下野紘 : 6 pts.
鳥海浩輔 : 6 pts.
若本規夫 : 6 pts.
----- Op.7 -----
沢城みゆき : 7 pts.
寺島拓篤 : 7 pts.
鈴村健一 : 7 pts.
谷山紀章 : 7 pts.
宮野真守 : 7 pts.
諏訪部順一 : 7 pts.
下野紘 : 7 pts.
鳥海浩輔 : 7 pts.
若本規夫 : 3 pts.
----- Op.8 -----
沢城みゆき : 8 pts.
寺島拓篤 : 8 pts.
鈴村健一 : 8 pts.
谷山紀章 : 8 pts.
宮野真守 : 8 pts.
諏訪部順一 : 8 pts.
下野紘 : 8 pts.
鳥海浩輔 : 8 pts.
若本規夫 : 4 pts.
----- Op.9 -----
沢城みゆき : 9 pts.
寺島拓篤 : 9 pts.
鈴村健一 : 9 pts.
谷山紀章 : 9 pts.
宮野真守 : 9 pts.
諏訪部順一 : 9 pts.
下野紘 : 9 pts.
鳥海浩輔 : 9 pts.
若本規夫 : 5 pts.
----- Op.10 -----
沢城みゆき : 10 pts.
寺島拓篤 : 10 pts.
鈴村健一 : 10 pts.
谷山紀章 : 10 pts.
宮野真守 : 10 pts.
諏訪部順一 : 10 pts.
下野紘 : 10 pts.
鳥海浩輔 : 10 pts.
若本規夫 : 6 pts.
----- Op.11 -----
沢城みゆき : 11 pts.
寺島拓篤 : 11 pts.
鈴村健一 : 11 pts.
谷山紀章 : 11 pts.
宮野真守 : 11 pts.
諏訪部順一 : 11 pts.
下野紘 : 11 pts.
鳥海浩輔 : 11 pts.
若本規夫 : 7 pts.
----- Op.12 -----
沢城みゆき : 12 pts.
寺島拓篤 : 12 pts.
鈴村健一 : 12 pts.
谷山紀章 : 12 pts.
宮野真守 : 12 pts.
諏訪部順一 : 12 pts.
下野紘 : 12 pts.
鳥海浩輔 : 12 pts.
若本規夫 : 8 pts.
----- Op.13 -----
沢城みゆき : 13 pts.
寺島拓篤 : 13 pts.
鈴村健一 : 13 pts.
谷山紀章 : 13 pts.
宮野真守 : 13 pts.
諏訪部順一 : 13 pts.
下野紘 : 13 pts.
鳥海浩輔 : 13 pts.
若本規夫 : 9 pts.

YUKI.N>
まだ現行の審査システムが確立される前であるが、
「あまりにも出ないので枠名称変更」という判断が行われた。(森久保祥太郎→沢城みゆき)
ページトップ
コメントはまだありません。