次のタグが付いている新しい回答: perl
0
UTF-8 対応というのは以下の記述を指しているのかもしれませんが、
use utf8;
use Encode;
use encoding "utf8";
use open ':encoding(UTF-8)';
binmode(STDOUT, ':encoding(UTF-8)');
実際に書き込みを行っているのは別のファイルハンドル名 OUT1 なので、
if($pass eq "0000"){
# スレログファイルに書き込み
unshift(@log3,"$tno<>$title<>$message<>$date<>\n");
open(...
上位 50 件の最近の回答が含まれています