utf8字节

<pre name="code" class="html">[root@wx03 0724]# perl a1.pl
112
[root@wx03 0724]# perl a1.pl
dawe^H^H微信adda
success
[root@wx03 0724]# perl a1.pl
22微信3131
success
[root@wx03 0724]# 

[root@wx03 0724]# cat a1.pl
my $a=<STDIN>;
my $b='微信';
if ($a =~/$b/){print "success\n";};

[root@wx03 0724]# perl a1.pl
22微信3131
[root@wx03 0724]# cat a1.pl
use Mojolicious::Lite;
my $a=<STDIN>;
my $b='微信';
if ($a =~/$b/){print "success\n";};

此时匹配不上了:

因为开启了utf8;

[root@wx03 0724]# perl a1.pl
22微信3131
success
[root@wx03 0724]# cat a1.pl
use Mojolicious::Lite;
use Encode;
my $a=<STDIN>;
my $b=encode_utf8('微信');
if ($a =~/$b/){print "success\n";};

继续测试；
[root@wx03 0724]# perl a1.pl
"my" variable $a masks earlier declaration in same scope at a1.pl line 4, <DATA> line 2125.
23微信2231
success

[root@wx03 0724]# cat a1.pl
use Mojolicious::Lite;
use Encode;
my $a=<STDIN>;
my $a=decode_utf8("$a");
my $b='微信';
if ($a =~/$b/){print "success\n";};

[root@wx03 0724]# perl a1.pl
"my" variable $a masks earlier declaration in same scope at a1.pl line 5, <DATA> line 2125.
23微信2231
$a is 23微信2231

Wide character in print at a1.pl line 6, <STDIN> line 1.
$a is 23微信2231

success

[root@wx03 0724]# cat a1.pl
use Mojolicious::Lite;
use Encode;
my $a=<STDIN>;
print "\$a is $a\n";
my $a=decode_utf8("$a");
print "\$a is $a\n";
my $b='微信';
if ($a =~/$b/){print "success\n";};

/******************
[root@wx03 0724]# perl a2.pl
23微信2231
$b is 微信
success

[root@wx03 0724]# cat a2.pl
use Encode;
use Mojolicious::Lite;
my $a=<STDIN>;
my $b=encode_utf8('微信');
print "\$b is $b\n";
if ($a =~/$b/){print "success\n";};

[root@wx03 0724]# perl a2.pl
23微信2231
$b is 微信

[root@wx03 0724]# cat a2.pl
use Encode;
my $a=<STDIN>;
my $b=encode_utf8('微信');
print "\$b is $b\n";
if ($a =~/$b/){print "success\n";};
[root@wx03 0724]#