程嶏清单9-12.txt

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

sub log_base {
    my ($base, $value) = @_;
    return log($value)/log($base);
}
$answer1 = log_base(10, 10000);
print "log10(10,000) = $answer1\n";
$answer2 = log_base(3,81);
print "log10(3,81) = $answer2\n";