您的位置:首页 > 其它

调用子程序来返回 某个字段在数组中的位置

2016-12-14 18:14 239 查看
my @names = qw / fred test dfdf dino abcde/;
my $result=&max("dino",@names);
sub max {
my($what,@array)=@_;
foreach(0..$#array) {
if ($what eq $array[$_]) {
return $_+1;
}
}
-1;
}

print $result,"\n";
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐