| Public Scratchpad | Download, Select Code To D/L |
Perl is printing out the BOM (Byte Order Mark) from the INPUT file, although I have not requested that it do so? How do I get Perl to only print out what I am requesting and skip the BOM?#perl open(my $INPUT, "<:encoding(UTF-16LE)", 'temp.xsd') or die "Failed to +open the INPUT file as UTF-16LE\n$!\n"; open (my $OUTPUT, ">:crlf:utf8", 'output.dat') or die "Failed to open +the OUTPUT file\n$!\n"; print $OUTPUT $_ while (<$INPUT>);