如何匹配Perl中的汉字？

Question

如何匹配Perl中的汉字？为什么

$ perl -e 'if ( "??" =~ /\p{Han}/ ) { print "!"}'
$

不起作用？

Answer 1

如果您的源代码是UTF-8,则需要使用use utf8;.如果它不是UTF-8,则源可能不会有任何汉字.

$ perl -le'use utf8; if ( "??" =~ /\p{Han}/ ) { print "!" }'
!