2.12 対数を取る

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