在获得正确的输出之前我需要很长时间才能搞清楚,我想知道我的解决方案是否是正确的方法,因为它似乎在Perl的其他语言方面过于复杂.特别是：

>为什么Perl使用正确的BOM编码(UTF-16)制作有效的UTF-16大端,而如果我使用UTF-16LE或UTF-16BE而不使用额外的包File :: BOM,则没有BOM？
>为什么开箱即用的CRLF处理似乎有问题(它输出为0D 0A 00而不是0D 00 0A 00)没有过滤器的一些麻烦？我怀疑这对于拥有这么多用户的语言来说可能是一个真正的错误……

以下是我的评论尝试,我发现正确的是最后的陈述

use strict;
use warnings;
use utf8;
use File::BOM;
use feature 'say';

my $UTF;
my $data = "Hello,héhé,中文.\nsecond line : my 2€"; # 中文 = zhong wen = chinese

# UTF16 BE + BOM but incorrect CRLF: "0D 0A 00" instead of "0D 00 0A 00"
open $UTF,">:encoding(UTF-16)","utf-16-std-be.txt" or die $!;
say $UTF $data;
close $UTF;

# same as UTF-16BE (no BOM,incorrect CRLF)
open $UTF,">:encoding(ucs2)","utf-ucs2.txt" or die $!;
say $UTF $data;
close $UTF;

# UTF16 BE,no BOM,incorrect CRLF
open $UTF,">:encoding(UTF-16BE)","utf-16-be-nobom.txt" or die $!;
say $UTF $data;
close $UTF;

# UTF16 LE,">:encoding(UTF-16LE)","utf-16-le-nobom-wrongcrlf.txt" or die $!;
say $UTF $data;
close $UTF;

# UTF16 LE,BOM OK but still incorrect CRLF
open $UTF,">:encoding(UTF-16LE):via(File::BOM)","utf-16-le-bom-wrongcrlf.txt" or die $!;
say $UTF $data;
close $UTF;

# UTF16 LE non raw incorrect 
# (crlf by default on windows) -> 0A => 0D 0A
open $UTF,"utf-16-le-bom-wrongcrlf2.txt" or die $!;
print $UTF $data,"\x0a"; # 0A is magically expanded to 0D 0A but wrong
close $UTF;

# UTF16 LE + BOM + LF 
# raw -> 0A => 0A
# could be correct on UNIX but I need CRLF
open $UTF,">raw::encoding(UTF-16LE):via(File::BOM)","utf-16-le-bom-wrongcrlf3.txt" or die $!;
say $UTF $data;
close $UTF;

# manual BOM,but CRLF OK
open $UTF,">:raw:encoding(UTF-16LE):crlf","utf-16-le-bommanual-crlfok.txt" or die $!;
print $UTF "\x{FEFF}";
say $UTF $data;
close $UTF;

#auto BOM,CRLF OK ?
#incorrect,says utf8 "\xA9" does not map to Unicode at c:/perl/Dwimperl-5.14/perl/lib/Encode.pm line 176.
# But I cannot see where the A9 comes from ??!
#~ open $UTF,">:raw:encoding(UTF-16LE):via(File::BOM):crlf","utf-16-le-autobom-crlfok1.txt" or die $!;
#~ print $UTF $data;
#~ say $UTF $data;
#~ close $UTF;

# WTF? \n becomes 0D 00 0D 0A 00
open $UTF,">:encoding(UTF-16LE):crlf:via(File::BOM)","utf-16-le-autobom-crlf2.txt" or die $!;
say $UTF $data;
close $UTF;

#CORRECT WAY?? : Automatic BOM,CRLF is OK
open $UTF,">:raw:encoding(UTF-16LE):crlf:via(File::BOM)","utf-16-le-autobom-crlfok3.txt" or die $!;
say $UTF $data;
close $UTF;