Hi! I’m clsung

[perl] 斷開中英文

懶，所以也不想去縮減了。

use encoding ‘utf8′; 

my $CJK = "[x{3400}-x{FA20}]"; 

while (< STDIN >) { 

  chomp; my @ss = split (/($CJK|[A-Za-z0-9]+)/, $_);

  print join (" ",@ss)."n";

}

測試句：

請問2001年3月第一家麥當勞飯店在何國成立？

結果

請問 2001 年 3 月第一家麥當勞飯店在何國成立？

若是要連續的，那麼在 $CJK 裡加個 + 就好：

my $CJK = "[x{3400}-x{FA20}]+";

結果

請問 2001 年 3 月第一家麥當勞飯店在何國成立？

Share and Enjoy:

一月 2009
S	M	T	W	T	F	S
« 12月	«-»
	1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30	31

« 12月

«-»

[perl] 斷開中英文

Leave a Reply

噗浪:

分類

Flickr

Blogroll

Tags

額外資訊

Statistics