¿Cómo podría redefinir una subrutina y conservar también la anterior?

Question

Esto es lo que me gustaría lograr:

sub first { 
    print "this is original first"; 
} 

*original_first = \&first; 

sub first { 
    print "this is first redefined"; 
} 

original_first(); # i expect this to print "this is original first" 
first() # i expect this to print "this is first redefined" 

pensé que guardando el símbolo de first, me gustaría ser capaz de llamar a la subrutina tarde originales (bajo el nombre original_first) y también poder para llamar al first, y obtener el redefinido. Sin embargo, si llamo al original_first, sigo teniendo el mensaje "esto primero se redefine". ¿Qué tengo que hacer para que esto funcione?

Answer 1

Esto debería funcionar como se espera:

sub first { 
    print "this is original first"; 
} 

*original_first = \&first; 

*first = sub { 
    print "this is first redefined"; 
}; 

Answer 2

en su código, Perl interpreta ambas declaraciones sub similares a esta:

BEGIN { 
    *first = sub { ... } 
} 

por lo tanto las asignaciones a &first a poco pasará antes de guardar la copia y llamando a las rutinas. la solución es hacer que la segunda declaración en una asignación de tiempo de ejecución:

sub first { 
    print "this is original first"; 
} 

*original_first = \&first; 

*first = sub {print "this is first redefined"}; 

original_first(); # prints "this is original first" 
first();   # prints "this is first redefined" 

Answer 3

Véase el módulo Hook::LexWrap, que puede manejar todo eso para usted. Si no desea utilizar el módulo, simplemente mire la fuente, que le muestra exactamente cómo hacerlo.