文章详情

  • 游戏榜单
  • 软件榜单
关闭导航
热搜榜
热门下载
热门标签
php爱好者> php文档>perl学习6-return操作符

perl学习6-return操作符

时间:2011-04-24  来源:孤独的猫

#!/usr/bin/perl -w
my @names=qw/ fred barney betty dino wilma pebbles bamm-bamm /;
my $result=&which_element_is("dino",@names);

sub which_element_is {
  my($what,@array)=@_;
  foreach (0..$#array) {
    if ($what eq $array[$_]) {
      return $_;
    }
  }

  -1;

}
print "The position is $result\n";

查找单词位于第几个(-1表示没有找到)

相关阅读 更多 +
排行榜 更多 +
空中跑酷汉化版

空中跑酷汉化版

赛车竞速 下载
修仙传说

修仙传说

角色扮演 下载
魔界零之迷宫

魔界零之迷宫

冒险解谜 下载