如何匹配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 "!" }'
!