perl查看百家姓位置

概述  输入百家姓后回车，得到百家姓的排列的数字，目前支持赵钱孙李周吴郑王。 #!/usr/bin/perl chomp ($c = <STDIN>);                              定义变量c从键盘获取，并自动去掉换行符 @names = qw/ zhao qian sun li zhou wu zheng wang/; 定义列表names $a = &chazhao (

 

输入百家姓后回车，得到百家姓的排列的数字，目前支持赵钱孙李周吴郑王。 #!/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 条件匹配立刻返回值，而不在执行子程序剩余的部分。 总结

以上是内存溢出为你收集整理的perl查看百家姓位置全部内容，希望文章能够帮你解决perl查看百家姓位置所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。