Perl 5.1 怎么处理 UTF-16LE的encoding 问题?

百分百好牛

我有个很古老的程序（没有source code了），会生成一个log文件，设这个文件名叫log.txt，这个文件encoding很奇怪，用ultraedit32 打开 如下：

1. 0000000: 5400 4400 4400 3e00 2000 4c00 6f00 6100  T.D.D.>. .L.o.a.

复制代码

如果我用notepad打开，再save as呢，就成了下面这个，其实是 utf-16的

1. 0000000: fffe 5400 4400 4400 3e00 2000 4c00 6f00  ..T.D.D.>. .L.o.

复制代码

但是，这个log.txt不能直接处理，比如说按我下面的这个方法去查找，会失败，因为实际上，每次读出来的行是 T.D.D.不是我想要的 TDD。

1. 
   
2. open STDIN, "< log.txt";
   
3. while(<>)
   
4. {
   
5.   if (/TDD/)
   
6.   {
   
7.     # Add my logic.
   
8.   }
   
9. }
   
10. 
    

复制代码

现在我想把他转化成一个标准的utf16或者utf8,却总是提示失败，如下：

perl.exe open.pl utf-16le utf8 log.txt

1. 
   
2. use strict;
   
3. use warnings;
   
4. use Encode;
   
5. 
   
6. # read arguments
   
7. my $enc_in  = shift || die 'pass file encoding as first parameter';
   
8. my $enc_out = shift || die 'pass STDOUT encoding as second parameter';
   
9. print STDERR "going to read files as encoded in: $enc_in\n";
   
10. print STDERR "going to write to standard output in: $enc_out\n";
    
11. die "no files :-(\n" unless @ARGV;
    
12. 
    
13. binmode STDOUT, ":encoding($enc_out)"; # latin1, cp1252, utf8, UTF-8
    
14. 
    
15. print STDERR map "* $_\n", Encode->encodings; # list loaded encodings
    
16. 
    
17. for ( @ARGV ) { # process files
    
18.     open my $fh, "<:encoding($enc_in)", $_ or die "open $_: $!";
    
19.     print while <$fh>;
    
20.     close $fh;
    
21. }
    
22. 
    
23. print STDERR map "* $_\n", Encode->encodings; # more encodings now
    

复制代码

错误的提示总类似于
UTF-16LE : Partial character at open.pl line 18, <$fh> line 2011.

希望有经验的兄弟过来帮忙看看。

perl 5.1
windows 2008

jason680

我有个很古老的程序（没有source code了），会生成一个log文件，设这个文件名叫log.txt，这个文件encoding很 ...
百分百好牛 发表于 2011-05-10 17:12

Perl 5.1 !!??
要不....
升级先...
好像Perl 5.8才支持unicode

C:\Users\Jason>perl -v

This is perl, v5.10.1 built for MSWin32-x86-multi-thread
(with 2 registered patches, see perl -V for more detail)

Copyright 1987-2009, Larry Wall

2gua

你把Perl 5.1，变成>=Perl 5.10。