vsuse Devel::Peek qw( Dump ); { my $v1 = "test"; Dump($v1); } { my $v2 = "test"; Dump($v2); } { my $v3 = "test"; Dump($v3); } __END__ SV = PV(0x1abea7c) at 0x1ab2710 REFCNT = 1 FLAGS = (PADBUSY,PADMY,POK,pPOK) PV = 0x1aa01f4 "test"\0 0x1aa01f4 CUR = 4 LEN = 5 SV = PV(0x1abea94) at 0x1ab26f8 REFCNT = 1 FLAGS = (PADBUSY,PADMY,POK,pPOK) PV = 0x1aa01e4 "test"\0 0x1aa01e4 CUR = 4 LEN = 5 SV = PV(0x1abeaac) at 0x1ab2734 REFCNT = 1 FLAGS = (PADBUSY,PADMY,POK,pPOK) PV = 0x1aa01d4 "test"\0 0x1aa01d4 CUR = 4 LEN = 5
use Devel::Peek qw( Dump ); { my $v1 = "test"; Dump($v1); undef $v1; } { my $v2 = "test"; Dump($v2); undef $v2; } { my $v3 = "test"; Dump($v3); undef $v3; } __END__ SV = PV(0x1abea7c) at 0x1ab26d4 REFCNT = 1 FLAGS = (PADBUSY,PADMY,POK,pPOK) PV = 0x1aa01f4 "test"\0 0x1aa01f4 CUR = 4 LEN = 5 SV = PV(0x1abea94) at 0x1ab26f8 REFCNT = 1 FLAGS = (PADBUSY,PADMY,POK,pPOK) PV = 0x1aa01f4 "test"\0 0x1aa01f4 CUR = 4 LEN = 5 SV = PV(0x1abeaac) at 0x1ab26c8 REFCNT = 1 FLAGS = (PADBUSY,PADMY,POK,pPOK) PV = 0x1aa01f4 "test"\0 0x1aa01f4 CUR = 4 LEN = 5
In reply to Re^4: perl memory re-usage
by ikegami
in thread perl memory re-usage
by mreece
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |