perl'require'在开始块

Question

我有以下代码：

#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';

BEGIN {
       my $supported = undef;
       *compute_factorial = sub { if (eval { require bignum; bignum->import(); 1;}) {
                                    my $num       = shift;
                                    my $factorial = 1;
                                    foreach my $num (1..$num) {
                                        $factorial *= $num; 
                                    }
                                    return $factorial;
                                  }  else {
                                       undef;
                                     } };
       };

my $f = compute_factorial(25);
say $f;

我只是在测试某种东西，而不是真正的生产代码……我的机器上确实有bignum pragma（可以使用use完全加载），我想知道为什么require不能正常工作（我正在获取指数数）而不是“大数字”）？

谢谢，

Answer 1

bignum的导入需要在要实现的代码编译之前被调用，否则将不起作用。 在这里，BEGIN使它在您实际的compute_factorial调用之前被调用，但在关键my $factorial = 1;之前未调用my $factorial = 1; 被编译。

对于这种情况，更好的方法是直接使用Math :: Big *：

if (eval { require Math::BigInt }) {
    my $num = shift;
    my $factorial = Math::BigInt->new(1);
    foreach my $num (1..$num) {
        $factorial *= $num;                            
    }
    return $factorial;
} else {
    undef;
} 

Answer 2

BEGIN {
   require bignum;
   import bignum;
   my $x = 1;
}

和

require bignum;
import bignum;
my $x = 1;

是相同的，因为在my $x = 1;之后执行了require和import my $x = 1; 已被编译，因此bignum永远没有机会使my $x = 1; 编译成my $x = Math::BigInt->new(1); 。 请记住

use bignum;
my $x = 1;

实际上是

BEGIN {
   require bignum;
   import bignum;
}
my $x = 1;

并不是

BEGIN {
   require bignum;
   import bignum;
   my $x = 1;
}

解决方案是

BEGIN {
   my $sub;
   if (eval { require bignum; }) {
      $sub = eval(<<'__EOI__') or die $@;
         use bignum;
         sub {
            my ($num) = @_;
            my $factorial = 1;
            $factorial *= $_ for 2..$num;
            return $factorial;
         }
__EOI__
   } else {
      $sub = sub { croak "Unsupported" };
   }

   *factorial = $sub;
}

当然，由于您可以简单地消除实用性，所以最好。

BEGIN {
   my $sub;
   if (eval { require Math::BigInt; }) {
      require Math::BigInt;
      $sub = sub {
         my ($num) = @_;
         my $factorial = Math::BigInt->new(1);
         $factorial *= $_ for 2..$num;
         return $factorial;
      };
   } else {
      $sub = sub { croak "Unsupported" };
   }

   *factorial = $sub;
}

Answer 3

与许多其他编译指示一样，在较新版本的Perl bignum它仅在导入它的作用域中处于活动状态。 但是，与许多其他方法不同，它还与升级有作用域的数字做了一些时髦的混淆，而这仅与require不能完全配合。 您将不得不中断检查它的存在，并在两个不同的文件中使用以隔离作用域，并且仍然让它发挥作用。

big.pl

if (eval { require bignum; 1 }) {
    require big_loader;
}

print big_loader::big_num_returner();

print "still ok\n";

big_loader.pm

package big_loader;
use bignum;

sub big_num_returner {
    return 2**512
}

1;