为什么我不能覆盖Perl的内置打印？

Perl 2019-04-27

我试图用我自己来覆盖打印：

BEGIN {*CORE::GLOBAL::print = sub {print 1};}
print 2;

但事实证明它不起作用,2仍然是打印而不是1.

为什么？

因为它具有非常特殊的解析规则,无法通过正常功能复制,所以打印操作符不能被覆盖.

print "foo\n";
print { *STDOUT } "foo\n";

您可以找出可以使用prototype覆盖哪些操作符

>perl -E"say qq{$_: },defined(prototype(qq{CORE::$_})) ? 'yes' : 'no' for @ARGV" print map time chr
print: no
map: no
time: yes
chr: yes

PS – 如果你的代码实际上覆盖了打印,你将会有一个无限循环.

忍不住在 PerlChina 邮件列表中盘点了一下 Perl 里的 Web 应用框架（巧的是 PerlBuzz 最近也有一篇相关...

perl中bless的理解

bless有两个参数：对象的引用、类的名称。类的名称是一个字符串，代表了类的类型信息，这是理解bless的...

PERL GB2312 UTF-8 编码转换

gb2312转Utf的方法： use Encode; my $str = "中文"; $str_cnsoftware = encode("utf-8...

perl 计算硬盘利用率

perl 计算硬盘利用率，以%来查看硬盘资源是否存在IO消耗cpu资源情况；部份代码参考了iostat源码；...

perl之变量

1 简单变量 Perl 的 Hello World 是怎么写的呢？请看下面的程序： #!/usr/bin/perl print "Hello W...

perl的简单语法

本文介绍Perl的Perl的简单语法，包括基本输入输出、分支循环控制结构、函数、常用系统调用和文件操作，...

相关文章