perlでutf16を読み書きする
use encoding cp932; use Encode; open FI, "<:encoding(utf16)", "aaa.txt" or die; open FO, ">:raw:encoding(utf16)", "bbb.txt" or die; while(<FI>){ print FO $_; }
use encoding cp932; use Encode; open FI, "<:encoding(utf16)", "aaa.txt" or die; open FO, ">:raw:encoding(utf16)", "bbb.txt" or die; while(<FI>){ print FO $_; }