子程序中的return

2016-10-18 11:42:17来源:CSDN作者:g13731463274人点击

[root@mysql1 perl]# cat 21.pl 
#!/usr/bin/env perl


use strict;
use warnings FATAL => 'all';


sub which_element_is {


  foreach(@_) {
  print $_,"/n";
  }


  my($what,@array)=@_;
  print $#array,"/n";
  foreach (0..$#array) {
    if($what eq $array[$_]) {
      print $_,"/n";
      return $_;
    }
  }
  -1;
}


my @names=qw/ fred barney betty dino wilma pebbles bamm-bamm /;
my $result=&which_element_is("dino",@names);
print "the result is $result/n";




























[root@mysql1 perl]# ./21.pl   
dino
fred
barney
betty
dino
wilma
pebbles
bamm-bamm
6
3
the result is 3
[root@mysql1 perl]# 

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台