perl -MDevel::Peek -e'$a = "3qwer"; $b = "3"; Dump $a; $a == $b; Dump $a;' SV = PV(0xca7b78) at 0xcce880 REFCNT = 1 FLAGS = (POK,pPOK) PV = 0xcc92c0 "3qwer"\0 CUR = 5 LEN = 8 SV = PVNV(0xca8ff0) at 0xcce880 REFCNT = 1 FLAGS = (POK,pIOK,pNOK,pPOK) IV = 3 NV = 3 PV = 0xcc92c0 "3qwer"\0 CUR = 5 LEN = 8
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
