使用perl检测汉字？

Question

有没有办法用 Perl 来检测汉字？有没有办法用符号点“.”来分割汉字？完美？

Answer 1

取决于您对汉字的具体概念。也许您正在寻找 /\p{Script=Hani}/，但如果我们想要广泛传播，以下正则表达式模式将匹配中文书写中出现的内容。必要时进行限制。

use 5.014;
/
    (?: \p{Block=CJK_Compatibility}
    |   \p{Block=CJK_Compatibility_Forms}
    |   \p{Block=CJK_Compatibility_Ideographs}
    |   \p{Block=CJK_Compatibility_Ideographs_Supplement}
    |   \p{Block=CJK_Radicals_Supplement}
    |   \p{Block=CJK_Strokes}
    |   \p{Block=CJK_Symbols_And_Punctuation}
    |   \p{Block=CJK_Unified_Ideographs}
    |   \p{Block=CJK_Unified_Ideographs_Extension_A}
    |   \p{Block=CJK_Unified_Ideographs_Extension_B}
    |   \p{Block=CJK_Unified_Ideographs_Extension_C}
    )
/x;

---

是的，. 匹配一个字符。 split DWYM 的空模式：

use utf8;
split //, '冰淇淋'
# returns ('冰', '淇', '淋')