shell编程连载【5】- 求最大值

 
#! /usr/bin/perl

$ans=max(2,18,3,5);
print "Maximum value is $ans\n";

sub max{
        my $biggest=shift;
        foreach(@_){
        $biggest=$_ if $_>$biggest;
        }
return $biggest;
}

【说明】

$_:当前参数

@_:在子程序的调用过程中传值,perl使这些值可以在子程序中可用。

阅读更多
文章标签: shell 编程 perl
个人分类: shell
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭