求大神帮我看看

何大爷

sub greet{

$name = $_;

push @list,$name;

if ($#list > 0){

print "hi $name ! @list[$#list-1] is already here!\n";

}else{

print "Hi $name ! you are the first one here!\n";

}
}

greet ( "Fred" );
greet ( "Barney" );
greet ( "Tom" );

file:///C:\Users\l\AppData\Roaming\Tencent\Users\695285893\QQ\WinTemp\RichOle\URDA@X2WV]ELU~PZJ6Z{D7V.jpgfile:///C:\Users\l\AppData\Roaming\Tencent\Users\695285893\QQ\WinTemp\RichOle\URDA@X2WV]ELU~PZJ6Z{D7V.jpg

求各位大神帮我看看，我这个程序是perl入门（小羊驼书）的习题3-4（自己想的），但是跑出来的话，所有的$name都是空格，逻辑什么的是对的，想半天没想出来错误在哪。求解释下！！！

这个是跑出来的结果。

这个是跑出来的结果。

nicklee523

1. sub greet{
   
2.         if (@visitors) {
   
3.         print "hi @_, $visitors[-1] is already here!\n";
   
4.         push(@visitors, @_);
   
5.         } else {
   
6.         push(@visitors, @_);
   
7.         print "hi @_, you're the first one here!\n";
   
8.         }
   
9. }
   

复制代码

riverhq

回复 1# 何大爷

两处：

1、“$name = $_;”    改为 “$name = $_[0];”
2、“@list[$#list-1]” 改为 “$list[$#list-1] ”

icfbicfb

learning perl 应该可以自学成才的，  难度不大的 ， 好好看书