How to match Chinese characters in Perl?

Question

How to match Chinese characters in Perl? Why

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

doesn't work?

possible duplicate of http://stackoverflow.com/questions/1951613/how-to-match-chinese-character-using-perls-regex — loler, Sep 07 '12 at 05:44

score 10 · Accepted Answer · answered Sep 07 '12 at 05:50

10

If your source code is UTF-8, you need to use use utf8;. If it isn't UTF-8, the source couldn't possibly have any Han characters in it.

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

answered Sep 07 '12 at 05:50

ikegami

1 Answers1