这Perl的内置插件无法在CORE :: GLOBAL被重写？

Question

的perlsub文档的Overriding Built-in Functions部分提供

还有，当你想重写有时是适用的第二种方法的内置无处不在，而不考虑命名空间的边界。这是通过将一个子文件导入特殊命名空间CORE::GLOBAL::来实现的。

然后给出几个例子。在端部，但是，是

最后，一些内置插件（例如exists或grep）不能被重写。

什么是完整列表？

Answer 1

任何值，该值是在toke.c负可以被覆盖;所有其他人可能不会。您可以查看源代码here。

例如，让我们来看看waitpid上线10396：

case 'w': 
     if (name[1] == 'a' && 
      name[2] == 'i' && 
      name[3] == 't' && 
      name[4] == 'p' && 
      name[5] == 'i' && 
      name[6] == 'd') 
     {          /* waitpid */ 
     return -KEY_waitpid; 
     } 

由于waitpid是负的，它可能会被改写。 grep怎么样？

 case 'r': 
      if (name[2] == 'e' && 
       name[3] == 'p') 
      {         /* grep  */ 
      return KEY_grep; 
      } 

这是积极的，所以它不能被覆盖。这意味着，以下关键字不能被重写：

chop, defined, delete, do, dump, each, else, elsif, eval, exists, for, foreach, format, glob, goto, grep, if, keys, last, local, m, map, my, next, no, package, pop, pos, print, printf, prototype, push, q, qq, qw, qx, redo, return, s, scalar, shift, sort, splice, split, study, sub, tie, tied, tr, undef, unless, unshift, untie, until, use, while, y

Answer 2

有对SO感叹mocking the filetest operators难度前面一个问题（-f，-d，-x，...）

Answer 3

该prototype功能会告诉你，如果你可以覆盖CORE::功能。

这里是一个黑客一起试图让所有的功能，而无需键入它们：

#!/usr/bin/perl 

use strict; 
use warnings; 

open my $fh, "-|", "perldoc", "-u", "perlfunc" or die $!; 
my %seen; 
while (<$fh>) { 
    next unless my ($func) = /=item ([a-z]\w+)/; 
    next if $seen{$func}++; 

    my $prototype = prototype "CORE::$func"; 

    print "$func is ", defined $prototype ? "overiddable with $prototype " : 
     "not overiddable", "\n"; 
} 

Answer 4

的readline(HANDLE)功能（和等效<HANDLE> I/O操作）可以被嘲笑，但它的汽车的行为 - 指定为$_使用时像

while (<HANDLE>) { ... # equivalent to while (defined($_=readline(HANDLE))) 

不能。请参阅hobbs在How can I still get automatic assignment to '$_' with a mocked 'readline' function?的评论。这意味着代码如

while (<>) {  # implicitly sets $_ 
    do_something_with($_); 
} 

如果您重新定义readline，可能会中断。