in reply to UTF-16 on WinXP written by Perl shows whitespaces.

To expand on anonymonks terseness, you need to make sure that the file is read and written as binary to avoid newline translations. "pushing raw" translates to prefixing the encoding with ':raw'. The following works (copies a utf16le file with futzing with it) for me, but without the ':raw's, I see the same symptoms you describe. 

#! perl -slw
use strict;
use PerlIO::encoding;

open IN, '<:raw:encoding(UTF-16LE)', $ARGV[ 0 ];
open OUT, '>:raw:encoding(UTF-16LE)', $ARGV[ 0 ] . '.modified';
print OUT <IN>;

close $_ for *IN, *OUT;

[download]

You can pass the same argument string to binmode

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

Replies are listed 'Best First'.
Re^2: UTF-16 on WinXP written by Perl shows whitespaces.
by almut (Canon) on Nov 07, 2007 at 13:40 UTC 
    open IN, '<:raw:encoding(UTF-16LE)', $ARGV[ 0 ];
open OUT, '>:raw:encoding(UTF-16LE)', $ARGV[ 0 ] . '.modified';

    [download]

    For text files, I'd suggest using :raw:encoding(UTF-16LE):crlf:utf8 instead, in which case Perl will do proper linefeed translations (on Windows), just like it would without the :encoding(UTF-16LE).  Otherwise, be prepared to handle trailing carriage returns (\r) yourself — chomp (with the default $/ setting), for example, will not remove them...

[reply]
[d/l]
[select]
Re^2: UTF-16 on WinXP written by Perl shows whitespaces.
by aplonis (Pilgrim) on Nov 07, 2007 at 13:26 UTC

    Excellent! Most Excellent! I just tried it and it looks good (single spaced) to both Notepad and Textpad.

    I can't try it for real from work on account of the IT firewall here. It is for the *.INI file of an Inet app.

    But it looks good for file size and presentation to Notepad and TextPad both. So I have every confidence

    Next thing I'm doing is search for a support link that I may PayPal a donation to PerlMonks. Thanks again.

[reply]
[reply]

In Section Seekers of Perl Wisdom