はじめまして、鷹です。

>283行目  @dicf2=<dic2f>を→　@dicf2=<dicf2>;
>284行目　close(dicf2);
>289行目 ($chat_tanu = splice(@dicf2, rand @dic2f, 1))を
>　　　　→ ($chat_tanu = splice(@dicf2, rand @dicf2, 1))
>
>つまり、dic2f　を　dicf2　に書き直せばよい鴨(^。^)。
>
>どうでしょうか？


はい、真ににその通りです。m(__)m（ぼけを返せません）

修正版をアップしていますので、参照下さい。

フォロー有難う御座います。
これからも、お願い致します。

ERフォーラム一部拝見させて頂きました。（う〜ん考えさせられますね）
後で、じっくり拝見させて頂きます。

.