mojo 默认启用utf-8

[root@dr-mysql01 ~]# cat f1.pl
use Encode;
print "验证111\n";
my $d=encode_utf8('验证');
print $d;
print "\n";
[root@dr-mysql01 ~]# perl f1.pl
验证111
验证
[root@dr-mysql01 ~]# 

mojo 默认开始utf-8

	my $d=encode_utf8('验证');
	if ($a3 =~/$d/){
	#$msg->reply("\@$friend $a1-$a3-$a4");
	print "come in\n";

	$a3=decode_utf8("$a3");

	 my @content=($a1,$a3,$a4);
	 my $href= \@content;
	 push (@arr_out ,$href);
	# print "\@arr_out is @arr_out\n";
	#$c->render(text =>  ("$a1,$a3,$a4") );

	print "endtime is $endtime\n";
                  }
				                              };
           };
    $c->render(json =>  \@arr_out );