入力フォームで入力して頂いたコマンドは、ファイルにコマンド行として追記することになります。
投票コマンドの場合、以下のようになるでしょうか。
sub FILEOUT_VOTE { $temp = "$Day_Count_Max<>$Query_Tbl{'mode'}<>$Login_Index<>$Time_Stamp<>$Query_Tbl{'msg'}\n"; open( LOGFILE, ">>./msg.txt"); flock( LOGFILE, 2 ); print LOGFILE $temp; close( LOGFILE ); }
まず、入力された値を元に、コマンド行を生成します。
その後、ファイルを追記モードで開き、読み書きロック。コマンド行を書き出した後にクローズという感じです。
襲撃や占いなども、対象キャラクターが2人になるだけで、あとは同じです。