regex - 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 "!" }'
!