之前我遇到這問題有找到一個解法, 好像是\n和unicode相衝所以要加raw參數
open INPUT, '<:raw:encoding(UTF-16LE)', "test.txt" or die "input fail: $!";;
open OUTPUT, '>:raw:encoding(UTF-16LE)', "test2.txt" or die "output fail: $!";
print OUTPUT while(<INPUT>);
close OUTPUT;
close INPUT;
參考 http://www.perlmonks.org/?node_id=649456 而來的
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.204.124.229