perl查看百家姓位置

输入百家姓后回车，得到百家姓的排列的数字，目前支持赵钱孙李周吴郑王。

#!/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，如需转载请自行联系原作者