问个小问题...

avril764

sub test_val ($$) {
        my $val = shift;
        my $arg = shift;
        $val = $val->{$arg};
        while (defined($val) && ($#_ >= 0)) {
                if (not ref($val)) {
                        return undef;
                }
                $arg = shift;
                $val = $val->{$arg};
        }
        return $val;
}

以上"$#_" 的具体含义？　我试过了，它等于传入多余参数和减1...该特殊变量有何用？

alexru

最后一个参数的索引号

flw

一看就知道是新手写的。
应该写 @_ 才对。

while ( defined($val) && @_ ) {

avril764

Ok, 明白了， 默认是-1

avril764

原帖由 flw 于 2007-1-31 16:07 发表
一看就知道是新手写的。
应该写 @_ 才对。

while ( defined($val) && @_ ) {

应该是判断它传入多的参数的时候吧， $#_ 是超出的参数索引吧... (@_ 总的参数和呀)

avril764

原帖由 flw 于 2007-1-31 16:07 发表
一看就知道是新手写的。
应该写 @_ 才对。

while ( defined($val) && @_ ) {

补充一下，@_ 不会取出, 只是赋值。 而$#_ 是shift或pop(如果没有,就是原有参数)后剩下参数中最后一个的索引。 所以上面的代码没有问题， 我觉得应该是这样。

lonelyair

原帖由 flw 于 2007-1-31 16:07 发表
一看就知道是新手写的。
应该写 @_ 才对。

while ( defined($val) && @_ ) {

正确,有shift or pop 时,
@_里的内容一直是变化的,所以@_也就是想要的结果.

好象没说错

[ 本帖最后由 lonelyair 于 2007-1-31 21:04 编辑 ]

大大狗

原帖由 exth 于 2007-2-2 13:09 发表
@_在标量上下文等于$#_+1

结全上下文