perl - 如何引用 `sin` ？

Question

我可以定义一个子例程并像这样引用它

sub F { q(F here) }
$f = \&F;
print &$f           # prints “F here”

但是我怎么能做同样的事情，例如， sin ?

$f = \&sin;
print &$f           # error: Undefined subroutine &main::sin called

听起来我应该可以使用 \&MODULE::sin ;
显然 cos不在 main 中，但它在哪个模块中？我在任何地方都没有看到记录。

Answer 1

sin 不在您当前的包裹中。您需要调用 the CORE:: namespace . CORE::是所有内置函数所在的位置。它是自动导入的。

my $f= \&CORE::sin;
print $f->(1);

输出:

0.841470984807897

了解 CORE::foo如果您想在函数被覆盖后调用原始内置函数，则最有用。

use Time::HiRes 'time';

say time;
say CORE::time;

这输出:

1442913293.20158
1442913293