ファイルからの読み込み
open(FILEIN,"<:encoding(Shift_JIS)",$filename); #または open(FILEIN,"< $filename"); @contents =
;
close(FILEIN);
#$contents = join('',@contents);
#contentsは内部コード文字列
open(FILEIN,"<:encoding(Shift_JIS)",$filename); #または open(FILEIN,"< $filename"); @contents =
;
close(FILEIN);
#$contents = join('',@contents);
#contentsは内部コード文字列