perl--编码转换[utf-8 to gbk]

在perl中进行编码的转换可以用如下方法：

use Encode;
use Encode::Guess;
while (<>)
{
    chomp;
    my $enc1 = guess_encoding($_, qw/gbk/);
    my $enc2 = guess_encoding($_, qw/utf8/);
    if(ref($enc1))
    {
       print "$_\n";
     }
    elsif(ref($enc2) && $enc2->name eq "utf8")
    {
        my $str = encode("gbk",decode($enc2->name,$url));
        print "$str\n";
    }
}