Mega Code Archive

 

Categories / Perl / String

 

Utf8 Composite Character Classes

utf8 Property           Meaning \p{IsASCII}             ASCII character \p{Cntrl}               Control character \p{IsDigit}             A digit between 0 and 9 \p{IsGraph}             Alphanumeric or punctuation character \p{IsLower}             Lowercase letter \p{IsPrint}             Alphanumeric, punctuation character, or space \p{IsPunct}             Any punctuation character \p{IsSpace}             Whitespace character \p{IsUpper}             Uppercase letter \p{IsWord}              Alphanumeric word character or underscore \p{IsXDigit}            Any hexadecimal digit use utf8; $chr=65; print "$chr is a digit.\n"if $chr =~ /\p{IsDigit}/; $chr = "junk"; print "$chr is not a digit.\n"if $chr =~ /\P{IsDigit}/; print "$chr is not a control character.\n"if $chr = ~ /\P{IsCntrl}/;