开始 block 中的 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; 之前调用。

对于这种情况，更好的方法是直接使用 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;
}