Perl을 사용하여 중국어 문자를 감지하는 방법은 무엇입니까?

Question

가능한 중복 :
Detect chinese character using perl?

펄 사용하여 한자를 감지 할 수있는 방법이 있나요?

그리고 중국어 문자를 기호 도트 '로 분할하는 방법은 없습니다.' 아주?

Answer 1

뭔가 반환

#!/usr/bin/perl 
use utf8; 

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

같은

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

PS : 나는/중국어 말을 내가 STR의 말씀 $에 대해 아무 생각이 읽을 수 없습니다. 무례한 경우 ^^