[perl] 斷開中英文

2005/12/27
By

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

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 月第一家麥當勞飯店在何國成立？

Tags:

發表迴響

您的電子郵件位址並不會被公開。 必要欄位標記為 *

*

CAPTCHA 驗證圖片

*

標籤

2008 立委選舉 2008 總統選舉 baseball c++ cpbl Dell FreeBSD IBM job laptop Lenovo Linux Notebook openmp perl ports pylucene python tweets twitter ubuntu vim WordPress 中正紀念堂 台中市 台北市 台灣 國民黨 大陸 幹 張泰山 民進黨 王世堅 自由時報 莊國榮 萬華 記者 謝長廷 跳梁小丑 遊民 遊民收容所 郝龍斌 陳水扁 馬英九 龍山寺

其它