ファイルへの書き出し
#$strは内部コード文字列
open(FILEOUT,">:encoding(Shift_JIS)",$filename);
#または open(FILEOUT,"> $filename");
print FILEOUT $str;
close(FILEOUT);
#$strは内部コード文字列
open(FILEOUT,">:encoding(Shift_JIS)",$filename);
#または open(FILEOUT,"> $filename");
print FILEOUT $str;
close(FILEOUT);