如何使用Perl检测汉字？

Question

  

可能重复：
  Detect chinese character using perl?

有没有办法用Perl检测汉字？

有没有办法解决如何用符号点分割汉字'。'完美？

Answer 1

类似

#!/usr/bin/perl
use utf8;

my $str = "a银行系统时间表";
$str =~ m/(\p{Han}+)/;
print join('.', split(//, $1));

返回

银.行.系.统.时.间.表

PS：我不会读/说中文所以我不知道$ str说什么。如果它是粗鲁的soz ^^