Help for this page

Select Code to Download


  1. or download this
    use Encode;
use Devel::Peek;
...
$str = encode("shiftjis", $str);
Dump $str;
printf "=> is%s alphabetic\n\n", $str =~ /\p{IsAlpha}/ ? "":"n't";
  2. or download this
    U+5F4C as a regular Perl character string (UTF-8 flag on):
SV = PV(0x629098) at 0x645530
...
  CUR = 2
  LEN = 8
=> isn't alphabetic