以任何方式检索循环引用值

Question

我编写了以下程序来查看perl中称为循环引用的功能。

my $foo = 100;  
$foo = \$foo;
print "Value of foo is : ", $$foo, " " , $foo;

输出是：

Value of foo is : REF(0x21b632c) REF(0x21b632c)  

但是我想知道价值100在哪里可以帮助我。或者是内存泄漏吗？

Answer 1

值100被覆盖。将值分配给变量时，它将替换先前的值。

my $foo = 100;
$foo = "a string here";

价值100已经消失。上面的代码中也发生了同样的事情。唯一的区别是那里放了什么样的价值。