perl列表使用
判断来访的人是不是第一个，如果是第一个则输出您是第一个，否则输出他的前一个人[*]sub greet{
[*] @greet_list;
[*] my $len;
[*] print "Hi $_! ";
[*]
[*] push @greet_list , $_;
[*]
[*] $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);
页:
[1]