いやぁ・・・splice関数なんてもんがあったんですな。配列から要素外すの、あんなに苦労したってのにっ。ついでにキーワードリストファイルの所在もサブルーチン内に書くように変更。で、こんな感じになりました。
sub dokosyo {
my $word = $_[0];
my %key_list_file = (
'［人名］' => './dic/jinbutsu.dat',
'［場所］' => './dic/basho.dat',
);
my @keyword = keys(%key_list_file);
my @key_list;
my $key2;
srand;
foreach $keyword (@keyword) {
if ($word =~ /$keyword/) {
open(DB, "$key_list_file{$keyword}") || ended('$key_list_file open error');
@key_list = ;
close(DB);
while ($word =~ /$keyword/) {
$key2 = splice(@key_list, rand(@key_list), 1);
chomp $key2;
$word =~ s/$keyword/$key2/;
}
}
}
return $word;
}
むう、結構短くなりましたな。この例の場合、キーワードリストファイルはdicってディレクトリを掘ってそこに格納してあることになります。
ソフトウェアアップデートでてれてれと落としました、14MB。0.0.1のアップデートで14MB……まあ、0.1のアップデートでCD-ROMのみで提供だし、そういうものなのかもしれぬ。アップデートしてみると、classihackでClassic起動していたらアプリ起動した途端ログイン直後の状態まで吹き飛ばされました。……使えなくなってしまったのね（涙）。
気がついた点その1。文字入力が軽くなった気がします。miでテキスト打ちしていると、行が改まるところでいつも突っかかる感じだったのがほとんどなくなってますな。ちなみにATOK14使用なり。
気がついた点その2。Mozillaでネットサーフィン（笑）しつつmiで日記書きしている状態でCPU Monitorを見ていると、システム分が4割以上を常に占めるようになってます。あんなに赤が多いのは滅多に見たことなかったのに、常時その状態ですヨ。でも、負荷100％なのに特に重いって感じではないのが不思議。
気がついた点その3。サウンド出力のレベルがものすごく下がってるような。システム環境設定のサウンドで主音量MAXにして、外付けスピーカーのボリュームを5割まで上げないと今まで通り聞こえなくなっちゃったヨ。ちなみに今まではサウンドの主音量が半分くらい、スピーカーのボリュームが2割くらいでおっけーだったのに……。またWin側の音量調整しなくちゃなぁ。
ところで、今日初めてiPodのCM見ました。なんていうか……「踊る阿呆に見る阿呆」という言葉がぴったりなCMでした（笑）。オレもあんなに踊り狂ってみてぇ！
「機甲都市 伯林5 パンツァーポリス1943 Erste-Ende」よりヘイゼル・ミリルドルフ嬢です。いわゆる、救世者ってやつですな。先月末から2週間、延々とベジェツールでトレースし続けてようやく完成ダ！ ……「終わりのクロニクル」2下巻が出た今なぜ伯林なのか甚だ疑問ではありますが、まあ、終わクロの方にトレースしやすいイラストがないからしかたない。今後もトレースしやすいイラストが載る見込みはあまりなさそうだな。……それにしても、この2週間ずっとこれしかやってなかったから買ってきた小説ほとんど読んでないよ、どうしよう。
壁紙は例によって楓ちんの伝言欄からどーぞ。
その他今日の出来事。昨日に引き続きチェスピースコレクションDX 聖戦士ダンバイン〜オーラロード解放編〜を1つ買いました。今回はボチューンの色違いバージョンでした。……シークレットが出るまでマジで買い続けてやろうかしらん。しかし、職場近くのサンクス以外で売ってるの見たことないな。
眠いので、過去に遡るのは明日ー。……ちゃんと毎日日記書こうな？
今日はつくば市の選挙だったので、投票をさっくり済ませてから「いま、会いにゆきます」を見てきましたー。最初は、初めて柏ステーションシアターで見てやろうかと思っていたのです。が、時間ギリギリに着いたら満席で、結局いつも通りの松戸サンリオシアターになりました。 柏の時間に合わせて出たので結構な待ち時間があったのですが、入場待ちしてる人がかなりの割合でカップルだったのがなんとも（笑）。
邦画は滅多に見ない（夏からこっち、10本以上の映画を見たけど、邦画はデカレンジャー＆ブレイドだけだった）し、そんなに好きでもないのだけど、この映画はよかったなぁ……。のっけからおとーちゃんと息子のやり取りで涙目でしたが、中盤〜後半で大泣きしてましタ。……両隣人いなくて良かったと思ったけど、まあそこかしこからすすり泣く音が聞こえてたので問題あるまい。でも、おかーちゃんが戻ってきたところ、そばで普通の人が見てたら、何も分からない記憶喪失のおにゃのこを言いくるめて拉致ってるようにしか見えませんって！ あそこだけは笑いかみ殺すのに必死でした（笑）。んで、いろいろと泣き入れつつもエピローグのネタバレでほのぼの。あんたら、何から何までそっくりさん夫婦だヨ（笑）。しかし、ほのぼのに油断していたら最後の最後、「いま、会いにゆきます」でがつんとやられちゃいました。あーっ、もう一回見に行こうかなっ。<!--以下、ネタバレっぽいのでコメントアウト-->
ところで、竹内結子さんは、髪を首もとで縛ってるのが一番可愛いと思いましタ。……まあ、ビデオの中でしか見れなかったのだけどね。
来週は……池袋まで「ソウ」を見に行くかなぁ。でも、夕方からしかかかってないんだよな。どうしたもんか。