perl unicode 字符转换

最新推荐文章于 2025-06-25 09:31:35 发布

scan724

最新推荐文章于 2025-06-25 09:31:35 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： zj-脚本

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/50161357

zj-脚本专栏收录该内容

93 篇文章 ¥39.90 ¥99.00

订阅专栏

该博客展示了如何使用Perl处理Unicode字符，包括将`u`转义序列转换为对应的Unicode字符，以及解决宽字符打印问题。通过示例代码解释了在不同场景下，如命令行参数和文件读取中，如何正确地处理和打印Unicode字符串，强调了`encode_utf8`函数的重要性。

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

<pre name="code" class="html">[root@dr-mysql01 ~]# cat a1.pl 
my $str="$ARGV[0]";
use Encode;  
use Encode::CN;  
use JSON;   
use URI::Escape;  
use LWP::Simple;  
$str =~ s/\\u([0-9a-fA-F]{4})/pack("U",,hex($1))/eg;    
print "$str";


[root@dr-mysql01 ~]# perl a1.pl "\u767b\u5f55\u6210\u529f"
Wide character in print at a1.pl line 8.
登录成功You have mail in /var/spool/mail/root


需要encode_utf8:
[root@dr-mysql01 ~]# cat a1.pl 
my $str="$ARGV[0]";
use Encode;  
use Encode::CN;  
use JSON;   
use URI::Escape;  
use LWP::Simple;  
$str =~ s/\\u([0-9a-fA-F]{4})/pack("U",,hex($1))/eg;    
print encode_utf8($str);

[root@dr-mysql01 ~]# perl a1.pl "\u6e29\u91d1\u6240"
温金所[root@dr-mysql01 ~]# 


[root@dr-mysql01 ~]# cat hg.pl   
use Encode;  
use Encode::CN;  
u

了解本专栏