Select Code to Download

# wrong way to write utf16
open $fout, ">", $file or die;
binmode $fout, ":encoding(utf16le)" or die;
print $fout "abc\n123\n\n";
close $fout;

# OK
open $fout, ">:raw:encoding(utf16le):crlf", $file or die;
# etc.

3: unix  4195328 crlf  4195328
4: unix  4195328 crlf  4195328 perlio  4195328

C:\>perl -we "open $fin, '<:raw', $^X or die; die if -B $fin
-T and -B not implemented on filehandles at -e line 1.
...
C:\>perl -we "open $fin, '<:raw:perlio', $^X or die; die if -B $fin
Died at -e line 1.

open $fin1, "<", $foo or die;
binmode $fin1;

open $fin2, "<:raw", $bar or die;