<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]#