- 论坛徽章:
- 0
|
請問為什麼activeperl 5.8.4 在執行perl/tk時會出現以下訊息......
程式原碼:
use Tk;
use Tk::FBox;
$mw = MainWindow->;new();
$file = $mw->;FBox()->;Show;
MainLoop();
輸出結果:
C:\test>;perl fileselect
@ 535 not utf8
SV = PV(0x2d1f1d at 0x2d30afc
REFCNT = 2
FLAGS = (POK,pPOK,UTF
PV = 0x2d3227c "\267s\262\323\251\372\305\351 9"\0 [UTF8 "\x{1f3c93}s\x{93a7a}\x{4e9}\x{2169839}"]
CUR = 10
LEN = 11
SV = PVMG(0x2d30534) at 0x2d30afc
REFCNT = 2
FLAGS = (SMG,POK,pPOK,UTF
IV = 0
NV = 0
PV = 0x2d3227c "\267s\262\323\251\372\305\351 9"\0 [UTF8 "\x{1f3c93}s\x{93a7a}\x{4e9}\x{2169839}"]
CUR = 10
LEN = 11
MAGIC = 0x2d3345c
MG_VIRTUAL = & L_vtbl_utf8
MG_TYPE = PERL_MAGIC_utf8(w)
MG_LEN = 5
@ 535 not utf8
SV = PV(0x2d95abc) at 0x2e187b4
REFCNT = 2
FLAGS = (POK,pPOK,UTF
PV = 0x2e19154 "\267s\262\323\251\372\305\351 9"\0 [UTF8 "\x{1f3c93}s\x{93a7a}\x{4e9}\x{2169839}"]
CUR = 10
LEN = 11
SV = PVMG(0x2e172bc) at 0x2e187b4
REFCNT = 2
FLAGS = (SMG,POK,pPOK,UTF
IV = 0
NV = 0
PV = 0x2e19154 "\267s\262\323\251\372\305\351 9"\0 [UTF8 "\x{1f3c93}s\x{93a7a}\x{4e9}\x{2169839}"]
CUR = 10
LEN = 11
MAGIC = 0x2e192f4
MG_VIRTUAL = & L_vtbl_utf8
MG_TYPE = PERL_MAGIC_utf8(w)
MG_LEN = 5 |
|