Re: Reading wide character string from a file

"Wide Character format" most likely means it's encoded using UCS-2le. You're treating it as if it was encoded using iso-latin-1. Just decode it.

open(my $log_fh, '<:encoding(UCS-2le)', $log_qfn)
   or die("Can't open log file \"$log_qfn\": $!\n");
[download]

Comment on Re: Reading wide character string from a file Download Code

Replies are listed 'Best First'.
Re^2: Reading wide character string from a file by dsrZ (Initiate) on Oct 22, 2008 at 21:49 UTC
Thanks a bunch, ikegami, this worked!! :)	[reply]
Re^2: Reading wide character string from a file by dsrZ (Initiate) on Oct 22, 2008 at 21:46 UTC
Currently I am trying this, which is not working- " $product = $ARGV[0]; $file = $ARGV1; system("type $file > templog.txt"); open(A, "templog.txt") \|\| die "can't open intput file"; while() { $linein = $_; print $linein; } " Which is printing the wide character string. Not sure, how do I open using the open(my $log_fh, '<:encoding(UCS-2le)', $log_qfn) and still read it line by line?	[reply]