子程序中的私有变量

2016-10-12 19:05:19来源:CSDN作者:g13731463274人点击

第七城市
[root@mysql1 perl]# cat 18.pl   
#!/usr/bin/env perl


#use warnings FATAL => 'all';


sub max {
#  my($m,$n);
#  ($m,$n)=@_;
my($m,$n)=@_;
  if ($m > $n) {
    $m
  } else {
    $n
  }
}


print &max(10,15),"/n";
print &max(8,5),"/n";
print &max(1,2,3),"/n";
print &max(4),"/n";


[root@mysql1 perl]# 
[root@mysql1 perl]# 
[root@mysql1 perl]# 
[root@mysql1 perl]# ./18.pl   
15
8
2
4
第七城市

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台