如何在Perl中引用打印？

Question

如何参考(2 * !!isMax - 1) * (lower - higher) <= distance？

我试过了：

print

但它抛出：

  

未定义的子程序my $p = \&print;

Answer 1

它是\&CORE::print，但是perldoc CORE lists print as not available。

你可以在它周围包裹一个anon sub并转发args：

my $p = sub { print @_ };
$p->("hi");

另外，原始方法sans反斜杠在Perl 6中正常工作：

my $p = &print; $p("hi")