perl encode_utf8必须用在utf8环境

最新推荐文章于 2021-03-19 00:07:44 发布

scan724

最新推荐文章于 2021-03-19 00:07:44 发布

阅读量743

点赞数

分类专栏： perl LWP

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

版权

perl LWP 专栏收录该内容

111 篇文章 33 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客讨论了在Perl中使用encode_utf8函数时遇到的问题。作者通过示例代码展示了在非UTF-8环境中使用encode_utf8会导致宽字符警告，并指出正确的使用环境应该是UTF-8编码。

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

[root@wx03 mojo]# cat test.pl 
use Mojolicious::Lite;
use JSON qw/encode_json decode_json/;  
use Encode;
no strict;
use JSON; 
use Data::Dumper;
# /foo?user=sri
 get '/admin/api/menu' => sub {
          my $c = shift;
          print "测试更健康\n";
         open (LOG1 ,"<",'/data01/applog_backup/zj-api01-catalina.out') or die  $!;
                     while (<LOG1>) {
                                        my $phone='18072722237';
					#2016-03-09 09:35:12,380 INFO com.zjzc.thirdparty.sms.SMSUtils - Send message:您的验证码为132435，本验证码5分钟内有效。 to phoneNo:18072722237 succeed!
								 
					if ( ($phone) and ($_ =~/$phone/) and ($_ =~/SMSUtils/) ){$str=$_;
					
					my $x=

了解本专栏