升级 perl 模块以及编码转换

最新推荐文章于 2025-01-11 20:33:07 发布

wind0513

最新推荐文章于 2025-01-11 20:33:07 发布

阅读量1.3k

点赞数

CC 4.0 BY-SA版权

文章标签： perl shell

本文链接：https://blog.youkuaiyun.com/wind0513/article/details/5342164

本文介绍使用Perl进行不同字符集间的编码转换方法，包括从GBK到UTF-8、从UTF-8到GBK及从UTF-8到GB2312的具体实现。通过实际代码示例，展示了如何利用Perl内置模块Encode和URI::Escape进行字符串编码转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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";