关于子程序的一个疑问『已解决，谢谢各位的关注』

wuduzui

请问各位大侠：这个程序中("dino", @names)为什么不能颠倒成(@names，"dino",)
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 $_;         
        }
      }
      -1;                  
    }

（程序摘自小骆驼中文版第77页）

兰花仙子

这个程序中("dino", @names)为什么不能颠倒成(@names，"dino",)

可以传(@names,“dino")
不过子函数第一个参数接受的是@names的第一个元素
perl的传参本质上是一个列表，@names会打散和"dino"组成成一个列表传给子程序。

wuduzui

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

我调试了一下 不行啊 返回值为-1

兰花仙子

1. $ cat t1.pl
   
2. use strict;
   
3. 
   
4. my @x=qw(a b c);
   
5. test(@x,"d");
   
6. 
   
7. sub test {
   
8.     my ($a1,@a2) = @_;
   
9.     print "a1 is $a1\n";
   
10.     print "a2 is @a2\n";
    
11. }
    
12. 
    
13. $ perl t1.pl
    
14. a1 is a
    
15. a2 is b c d

复制代码

羲之遗韵

wuduzui 发表于 2012-04-19 22:10
#!/usr/bin/perl -w
@names = qw/ fred barney betty dino wilma pebbles bamm-bamm /;
$result = &which ...

只是语法上可以，你为啥非得颠倒人家的顺序？

wuduzui

谢谢版主的回复。不过我还是希望您能帮我纠正。上述程序中的错误。

wuduzui

回复 5# 羲之遗韵

只有弄清了。为何不能颠倒才能记住，才可以随意驾驭。我觉得。呵呵。希望您也给点意见！


   

yybmsrs

这个很难理解吗？

my ( $what, @array ) = @_;等效于my ( $what, @array ) = (@names, "dino");

然后$what 就是$names[0],@array就是@names[1..$#names]和"dino"

wuduzui

回复 8# yybmsrs
大神：你太牛了。解决了我多天来的疑惑！