如何在Perl中引用打印？

Question

如何引用print？

我想：

my $p = \&print; 

但它抛出：

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

Answer 1

这将会是\&CORE::print，但perldoc CORE lists print as not available。

你可以只环绕它一个匿名子，虽然转发ARGS：

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

另外，原来的方法SANS反斜杠工作在精细Perl 6：

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