升级 perl 模块 以及编码转换

perl -MCPAN -e shell
install URI::Escape

 

编码转换

use Encode;
gbk转uft-8：
$line = encode("utf-8",decode("gbk",$line));
或
$line = encode_utf8(decode("gbk",$line));
utf-8转gbk：
$line = encode("gbk", decode("utf8", $line));
uft-8转gb2312：
$line = encode("gb2312", decode("utf8", $line));

 

#! /usr/bin/perl
use URI::Escape;
use Encode;
$encoded = "http:////db4.file.joy.cn//6ded5b63fbd8454cff52d11d7f83388b//vodflv//%e7%94%b5%e8%a7%86%e5%89%a7//100113-350k-%e8%a5%bf%e
6%b8%b8%e8%ae%b0//100113-350k-%e8%a5%bf%e6%b8%b8%e8%ae%b0-1.flv";
$decoded  = uri_unescape($encoded);
print "$decoded/n";
$decoded = encode("gb2312", decode("utf8", $decoded));
print "$decoded/n";