参照カウンタ。

オブジェクトのリファレンスがつまった配列@arrayを$#arrayで短くしたとき、ちゃんと中身が開放されるのかなーって思って参照カウンタをみてみた。

#!/usr/bin/perl
use Devel::Peek qw/SvREFCNT/;

my (@a, @b);
push(@a, \$_) for (1 .. 10);
@b = @a;
$#a = 4;

print "\@a=";
print SvREFCNT($$_) for @a;
print "\n\@b=";
print SvREFCNT($$_) for @b;

[hideden@sv1]$ ./test.pl
@a=22222
@b=2222211111

ちゃんと参照カウンタは減ってる。多分開放されるんだろう。多分。