请问用那个模块能把UTF8的文本转换为GBK的文本？

julynada

{:3_200:}
最好给个现成的例子，我看了learning perl没找到。

flw

这种问题首先应该想到 cook book

兰花仙子

最好给个现成的例子，我看了learning perl没找到。
julynada 发表于 2010-09-15 13:33

    use Encode就可以。

miniqq

有个叫 piconv 的脚本，爱怎么转怎么转！

piconv系 iconv的perl版本。比iconv好用

打开piconv你就知道怎么用那些模块了。

py

回复 1# julynada

1. use Encode qw/from_to/;
   
2. from_to($val,'utf8','GB2312');

复制代码

julynada

回复  julynada
py 发表于 2010-09-16 13:23

    我还有一个问题，如何判断文本文件的编码？如果已经是GBK就不转了。{:3_204:}

iamxesam

回复 5# py
RE

wind_ch

回复 6# julynada


    這個問題之前有帖子討論過,

Encode::Guess

julynada

1. #!/usr/bin/perl -w
   
2. # SCRIPT: u2g.pl
   
3. # AUTHOR: Julynada
   
4. # DATE: 2010/09/20
   
5. # REV: 1.0
   
6. # For Study
   
7. #
   
8. # PURPOSE:
   
9. # 将UTF8编码的文本文件转换为GBK编码的文本文件 utf8 to gbk
   
10. 
    
11. use Encode;
    
12. use Encode::Guess;
    
13. 
    
14. if ( @ARGV < 2 ) {
    
15.     die "Usage: u2g.pl source_file target_file\n";
    
16. }
    
17. 
    
18. open my $in,  "<", $ARGV[0] or die;
    
19. open my $out, ">", $ARGV[1] or die;
    
20. my $enc;
    
21. while (<$in>) {
    
22.     $enc = guess_encoding( $_, qw/utf8/ );
    
23.     if ( !ref($enc) ) {
    
24.         close $out;
    
25.         unlink $ARGV[1];
    
26.         die "Can't guess: $enc";
    
27.     }
    
28.     Encode::from_to( $_, "utf8", "gbk", 1 );
    
29.     print $out $_;
    
30. }
    

复制代码

写出来了，请各位看看有没问题。

con

perl -MEncode -pi -E '\''$_=encode("gbk",decode("utf-8",$_));'\'' filename