新手请教一个子程序问题

zhangblueant

#!/usr/bin/perl

my @names=qw/fred barney betty dino wilma pebbles bamm-bamm/;
my $result=&which_element_is("dino",@names);
sub which_element_is
{
        my($what,@array);
        foreach(0..$#array)
        {
                if($what eq $array[$_])
                {
                        return $_;
                }
        }
        2;
}

print $result;

为什么打印出来不是dino在数组@names中的脚标值呢？
或者需要怎么改改？请指点。

chenhao392

my($what,@array)=@_;

chenhao392

回复 1# zhangblueant


    详细些说就是，参数没有传递给子函数...

zhangblueant

回复 3# chenhao392


    my($what,@array)=@_;

这样样子就对了。

但是有点疑惑。


初始化的时候将数组@_赋值给my($what,@array)。是怎么进行赋值的啊？

谢谢。

lynncate

dino是@_的第一个元素，@names是数组@_的第二个参数，其实可以shfit来取第一个参数，这样留下剩下的单个数组比较好操作。
#!/usr/bin/perl
use strict;
use warnings;

my @names = qw/fred barney lynn dino/;
sub index {
        my $name = shift;
        my @array = @_;
        for (0 .. $#array) {
                print $_,"\n" if $name eq $array[$_];
                }
}

&index('dino',@names);

chenhao392

回复 4# zhangblueant


    加（）后是list上下文，相当于两个@array之间的复制操作