ryoakg
7/22/2016 - 2:53 AM

Unicode property で 接頭語が In だったり Is だったりで紛らわしいので実験

Unicode property で 接頭語が In だったり Is だったりで紛らわしいので実験

regex-demo.clj
content_copyfile_download
;;; http://docs.oracle.com/javase/jp/7/api/java/util/regex/Pattern.html
;;; http://perldoc.perl.org/perluniprops.html


;;; Unicode property で 接頭語が In だったり Is だったりで紛らわしい
(def ss ["aa" "11" "ああ" "アア" "亜亜" "αα"])

;; #"\p{Katakana}" ;; PatternSyntaxException
(map #(re-find #"\p{IsKatakana}" %) ss) ;; => (nil nil nil "ア" nil nil)
(map #(re-find #"\p{InKatakana}" %) ss) ;; => (nil nil nil "ア" nil nil)

;; #"\p{Hiragana}" ;; PatternSyntaxException
(map #(re-find #"\p{IsHiragana}" %) ss) ;; => (nil nil "あ" nil nil nil)
(map #(re-find #"\p{InHiragana}" %) ss) ;; => (nil nil "あ" nil nil nil)

;; #"\p{Han}" ;; PatternSyntaxException
;; #"\p{InHan}" ;; PatternSyntaxException
(map #(re-find #"\p{IsHan}" %) ss) ;; => (nil nil nil nil "亜" nil)

;; #"\p{Latin}" ;; PatternSyntaxException
;; #"\p{InLatin}" ;; PatternSyntaxException
(map #(re-find #"\p{IsLatin}" %) ss) ;; => ("a" nil nil nil nil nil)

;; #"\p{Greek}" ;; PatternSyntaxException
(map #(re-find #"\p{InGreek}" %) ss) ;; => (nil nil nil nil nil "α")
(map #(re-find #"\p{IsGreek}" %) ss) ;; => (nil nil nil nil nil "α")