_ [楓チャット][Perl] どこでもいっしょモード搭載

昨日、ひさびさに登場したアプリさんのリクエストでボットにどこしょ風の応答をさせる機能を付けてみました。ちなみにどこしょについての説明はパス（笑）。サブルーチンはこんな感じ。

#--------------------------------------------------
# どこしょ風レス作成(99/11/11)
#--------------------------------------------------
sub dokosyo {
	my $word = $_[0];
	my %key_list_file = (
		'［人物］' => "$jinbutsu_file",
		'［場所］' => "$basho_file"
	);
	my @keyword = keys(%key_list_file);
	my @key_list;
	my $rand;
	my $key2;
	
	foreach $keyword (@keyword) {
		if ($word =~ /$keyword/) {
			open(DB, "$key_list_file{$keyword}") || ended('$key_list_file open error');
			@key_list = (<DB>);
			close(DB);
			while ($word =~ /$keyword/) {
				srand;
				$rand = rand(@key_list);
				$key2 = $key_list[$rand];
				chomp $key2;
				if ($key2 eq $key_list[0]) {
					@key_list = @key_list[1..$#key_list];
				} else {
					@key_list = @key_list[0..($rand-1),($rand+1)..$#key_list];
				}
				$word =~ s/$keyword/$key2/;
			}
		}
	}
	return $word;
} #ここまで

とりあえずこの例では使えるキーワードは"［人物］"と"［場所］"だけですが、%key_list_fileを書き換えて、キーワードリストファイルを作ればいくつでも増やせます。"［人物］"、"［場所］"のキーワードリストはそれぞれ$jinbutsu_file、$basho_fileで、ボットの各種辞書ファイルと同様にbot.plの先頭部分に記述してください。キーワードは改行で区切って記述すること。このサブルーチンはbot.plの適当な場所にコピーしてください。

使い方は、例えば

$resword = &dokosyo($resword);

とすれば変数$resword中の"［人物］"、"［場所］"という文字列をそれぞれキーワードリスト中の単語でランダムに置換して返します。実際の場合は$reswordを処理を行いたい文字列が入っている変数名で置き換えてください。

とまあ、簡単に解説してみましたが・・・簡単すぎてわけわかめかも。まあ、興味があったら事故責任でちゃれ〜んじ！ってことでよろしく。というわけで、自前のサブルーチンはこんな感じで公開してみようかと思う今日この頃。でも、これみたいに改造部分だけをきれいに分離できてないと解説がめんどくさいんですがねぇ。

_ [日常] ぐっすり

今日は夕方までぐっすり。いやー、よく寝たよ。

_ [読了] 読書メモ

「イリヤの空、UFOの夏　その2／秋山瑞人」読了。大人げなさ過ぎです、水前寺君。それにしても、これでまたしばらくは秋山さんの本は読めないのだなぁ。

今日は風邪が治りかけでくらくらでした。くすん。

_ [ゲーム] BALDR FORCE・その4

4周目、リャンルートへの選択肢が開きました。みのり・綾音ルートの分岐点付近から分岐です。このルート……主人公がらみの人間のほとんどが死ぬという実にきっつい展開でした。おまけにハッピーエンドといっても自体は何も好転しとらんしなぁ。それにしても、このルートをやると飛刀の真実が明かされるのですが……特にあのシーンはびっくりだ。ちゅーか、月菜ルートやってて気がつかなかった俺がバカか。ここに来てようやく接近戦もこなせるようになって戦闘がますます楽しくなってきます。

5周目、みのりの追加ぇちシーンを回収。……主人公、いきなり変態さんに豹変ですヨ！　あまりに唐突で笑っちまいました。

しかし、ここのところゲームに夢中で日記が滞りがちなのはいかんですなー。後でまとめ書きするとかなり適当になってしまうし。……ちーと考えた方がいいとは思うんだがー。

本日の体重は……83.3kgなり。

_ [日常] 傘が壊れた

濡れたまま畳んだ折り畳み傘を開こうとしたら、どこかひっかかっていたらしくて骨が一本ぼっきりいってしまいました。……買ったのが2000/7/30なので、4年ちょっと使ってたことになりますか。カーボンファイバー製の骨なので折れることはあるまいと思っていたのに……無念だ。ほんの数日前にぼろぼろになった財布を新調したところだというのに、やはり壊れ物は後を引くのだろうか。