通过demo搞懂encode_utf8和decode_utf8

最新推荐文章于 2023-03-28 21:40:44 发布

scan724

最新推荐文章于 2023-03-28 21:40:44 发布

阅读量196

点赞数

分类专栏： perl LWP

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/51870053

版权

perl LWP 专栏收录该内容

111 篇文章 33 订阅 ¥39.90 ¥99.00

订阅专栏

本文通过示例演示了在Perl中使用`encode_utf8`和`decode_utf8`处理UTF-8编码的问题。在不同场景下，合理使用这两个函数可以避免宽字符警告和乱码问题，确保字符串正确地编码和解码。

摘要由CSDN通过智能技术生成

perl 编码问题；

use utf8表示代码使用UTF-8写的

[root@wx03 0710]# cat a1.pl 
#use utf8;
my $str='测试utf8字符集';
print  $str."\n";
[root@wx03 0710]# perl a1.pl 
测试utf8字符集


[root@wx03 0710]# cat a1.pl 
use utf8;
my $str='测试utf8字符集';
print  $str."\n";
[root@wx03 0710]# perl a1.pl 
Wide character in print at a1.pl line 3.
测试utf8字符集


[root@dr-mysql01 0710]# cat a1.pl 
use utf8;
my $a='验证';
print  $a."\n";

my $b=$a;
#my $b=encode_utf8($a);


my $url="http://192.168.32.101:3000/api/getcode?env=zj&phone=18072722237";
use  LWP::UserAgent;
use Encode;
#use utf8;
 
 my $ua = LWP::UserAgent->new;
 $ua->timeout(10);
 $ua->env_proxy;
 $ua->agent("

了解本专栏