perl列表使用

ienki

　　判断来访的人是不是第一个，如果是第一个则输出您是第一个，否则输出他的前一个人
　　

• sub greet{
  
•     @greet_list;
  
•     my $len;
  
•     print "Hi $_[0]! ";
  
• 
  
•     push @greet_list , $_[0];
  
• 
  
•     $len = @greet_list;
  
• 
  
•     if($len == 1){
  
•         print "You are the first one here!\n";
  
•     }else{
  
•         print @greet_list[$len-2]." is also here!\n";
  
•     }
  
• 
  
• }
  
• 
  
• greet(jason);
  
• greet(tom);
  
• greet(herry);