perl对数的计算

使用perl语言如何计算对数呢？
如果结算以e为底的对数，我们可以直接使用log函数：

perl

my $log_e = log($value);

如果计算以10为底的对数，我们可以字节使用log10函数：

perl

use POSIX qw(log10);
my $log_10 = log10($value）；

有了这两个函数，那么我们就可以计算任意数的对数了，计算方法为：log n (x) = (log e (x) / log 10 (n))，按照这个公式，构造子程序如下：

perl

sub log_base {
    my ($base, $value) = @_;
    return log($value)/log($base);
}

通过上面的子程序，我们就可以随时调用，做任意的对数运算了。
有没有更简单的方法呢？其实perl给我们提供了Math::Complex模块，用来计算任意数的对数：

perl

use Math::Complex;
my $log_n = logn(x);

我们通过一个例子来再看一下具体的使用：

perl

use Math::Complex;
printf "log2(1024) = %lf\n", logn(1024, 2); # log2(1024) = 10.000000

上面的例子就是计算以2为底，1024的对数了。

延伸阅读