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

Ответить