perl查看百家姓位置
发布时间：2020-12-16 00:15:39 所属栏目：大数据 来源：网络整理
导读：? 输入百家姓后回车，得到百家姓的排列的数字，目前支持赵钱孙李周吴郑王。 #!/usr/bin/perl chomp ($c = STDIN); ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?定义变量c从键盘获取，并自动去掉换行符 @names = qw/ zhao qian sun li zhou wu zheng wang/; 定义列表names
|
?
输入百家姓后回车，得到百家姓的排列的数字，目前支持赵钱孙李周吴郑王。
#!/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 条件匹配立刻返回值，而不在执行子程序剩余的部分。
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |