程嶏清单6-14.txt

< linux网络编程工具>>配套源码

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);
}