Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...

set_magic($txt);
print(length($txt), "\n"); Dump($txt);
  2. or download this
    4
SV = PVMG(0x81af530) at 0x817bca0
...
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = 6
  3. or download this
    SV = PV(0x816a0c0) at 0x817bca0
  REFCNT = 1
...
  PV = 0x8177b98 "K\303\244se"\0 [UTF8 "K\x{e4}se"]
  CUR = 5
  LEN = 8
  4. or download this
    SV = PVMG(0x81af570) at 0x817bca0
  REFCNT = 1
...
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = -1