模块------计算对数

1、计算以e为底的对数，我们可以直接使用log函数：my $log_e = log($value);

2、计算以10为底的对数：

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

3、有了以上两个函数中的任何一个，那么我们就可以计算任意数的对数了，计算方法为：log n (x) = (log A (x) / log A (n))，（其中A为任意正数，当然可以是10或者e），按照这个公式，构造子程序如下：

1. sub log_base {
2.      my ($value，$base) = @_;
3.      return log($value)/log($base);  ####推荐！！！！或者 return log10($value)/log10($base); 
4. }

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

 

4、perl给我们提供了Math::Complex模块，用来计算任意数的对数：  #####推荐！

use Math::Complex;

my $log_n = logn(x);

eg:

1. use Math::Complex;
   
   

1. printf “log2(1024) = %lf\n“, logn(1024, 2);         # log2(1024) = 10.000000

参考：http://yangl.net/2016/06/20/perl_log/