¿Qué incorporaciones de Perl no pueden anularse en CORE :: GLOBAL?

Question

La sección Overriding Built-in Functions de la documentación perlsub proporciona

Hay un segundo método que a veces es aplicable cuando se desea sustituir un sistema incorporado en todas partes, sin tener en cuenta los límites de espacio de nombres. Esto se logra al importar un sub en el espacio de nombre especial CORE::GLOBAL::.

y luego da algunos ejemplos. Al final, sin embargo, es

Por último, algunos muebles empotrados (por ejemplo exists o grep) puede no ser anulados.

¿Cuál es la lista completa?

Answer 1

Cualquier valor que sea negativo en toke.c puede anularse; todos los demás pueden no. Puede mirar el código fuente here.

Por ejemplo, veamos waitpid en la línea 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; 
     } 

Desde waitpid es negativo, puede ser anulado. ¿Qué hay de grep?

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

Es positivo, por lo que no se puede anular. Eso significa que las siguientes palabras clave no pueden ser anulados:

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

No era una pregunta anterior sobre lamentándose por lo que la dificultad de mocking the filetest operators (-f, -d, -x, ...)

Answer 3

La función prototype le dirá si puede anular una función CORE::.

Aquí es un hackeado tratar de conseguir todas las funciones sin tener que escribirlas:

#!/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

La función readline(HANDLE) (y el equivalente <HANDLE> me operador de E/S) puede ser burlado, pero su comportamiento de auto -assigning a $_ cuando se utiliza como

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

no puede ser. Vea el comentario de Hobbs en How can I still get automatic assignment to '$_' with a mocked 'readline' function?. Esto significa que un código como

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

probablemente se romperá si se redefine readline.