如何在Perl中引用打印？

Question

怎么参考print？

我试过了:

my $p = \&print;

但它抛出:

未定义的子程序 &main::print

Answer 1

它会\&CORE::print,但perldoc CORE列出print不可用.

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

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

另外,原始方法没有反斜杠在Perl 6中正常工作:

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