這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，可能會中斷。