［转］perl对数计算

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

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

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

通过上面的子程序，我们就可以随时调用，做任意的对数运算了。

有没有更简单的方法呢？其实perl给我们提供了Math::Complex模块，用来计算任意数的对数：

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

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