Perl中my变量的奇怪用法。。

maxxfire

UID: 39267
帖子: 167
积分: 384
在线时间: 1 天 14 小时

1^# maxxfire 发表于 2008-02-13 10:19

Perl中my变量的奇怪用法。。

一直以为my变量离开作用域后会被自动销毁，但是如果分发了my变量的引用，就不会了：

sub somefunc{
    my @array;
    @array = (0..5);

    return \@array;
}

$array_ref = somefunc();
...

原来perl还有此一招，估计c语言用多了，看到这种用法很不习惯。

March.Liu

UID: 10997
帖子: 173
积分: 397
在线时间: 1 天 17 小时

2^# March.Liu 发表于 2008-02-13 13:59

引用计数嘛，现代语言常见的东西。所以说引用其实是个挺有争议的玩意儿……

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

3^# churchmice 发表于 2008-02-13 15:46

这个似乎叫closure(闭包）吧
只要对一个变量的索引不是0，就会一直存在的

bruce1914

UID: 27608
帖子: 1
积分: 2
在线时间: 10 分钟

4^# bruce1914 发表于 2008-02-14 19:40

推荐去看《高级Perl编程》，有详细讲这些。
在子例程里面用my只是说不在Typeglob里面定义这个变量，但是还是会分配内存空间。
return \@array; 则返回@array的地址，内存里面不会把这个变量销毁，只是在外部如果再直接访问@array得话就会在Typeglob中找。
这个和C语言指针类似，不是什么新东西哈