输入百家姓后回车，得到百家姓的排列的数字，目前支持赵钱孙李周吴郑王。
#!/usr/bin/perl
chomp ($c = <STDIN>); 定义变量c从键盘获取，并自动去掉换行符
@names = qw/ zhao qian sun li zhou wu zheng wang/; 定义列表names
$a = &chazhao ($c, @names); 引用子程序chazhao，传递2个参数
sub chazhao { 定义子程序chazhao
my ($b, @shuzu) = @_; 将传递给子程序的$c和@names参数赋值给 $b和@shuzu并通过my定义成私有变量
foreach (0..$#shuzu) { foreach 遍历shuzu
if ($b eq $shuzu[$_]) { $b等于shuzu中的某个值
print "$b is :"; 打印$b is :
return $_ + 1; 返回数组的下标并且加1
}
}
-1; 错误时候返回-1
}
print $a."\n"; 返回最终结果
over
return 条件匹配立刻返回值，而不在执行子程序剩余的部分。
本文转自 freeterman 51CTO博客，原文链接：http://blog.51cto.com/myunix/1166272，如需转载请自行联系原作者
