http://blog.livedoor.jp/dankogai/archives/50740024.html
my $east = qr/(?!\p{M})(?:\p{Han}|\p{Katakana}|\p{Hiragana})/; my $west = qr/(?!\p{M})(?:\p{Latin}|\p{Greek}|\p{Cyrillic})/;
こんな書き方ができるのか!! すげー。知らんかった。
permlink
Powered by chalow version 1.0.50