程嶏清单6-14.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 11 行

print max(45..121, 12..23) . "\n";
print max(23..34, 356..564) . "\n";
sub max {
    my($max) = shift(@_);
    foreach $temp (@_) {
       if $temp > $max 
$max = $temp;
    }
    return($max);
}