日付をデータ行の先頭に付与したので、読み込み部分をそれに対応させてみましょう。 sub FILEIN_MSG{ if( open( LOGFILE, "<./msg.txt" ) ){ flock( LOGFILE, 1 ); ($Char_Count, $Vil_Img, $Vil_Css) = split( /<>/, <LOGFILE> ); for($index = 0 ; $index < $Char_C</logfile>…