Come potrei ridefinire una subroutine e mantenere quella precedente?

Question

Ecco cosa mi piacerebbe realizzare:

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" 

ho pensato che salvando il simbolo per first, sarei in grado di chiamare in seguito la subroutine originale (sotto il nome original_first) e di essere anche in grado per chiamare first e ottenere quello ridefinito. Tuttavia, se chiamo lo original_first, ottengo ancora il messaggio "questo viene prima ridefinito". Cosa devo fare per farlo funzionare?

Answer 1

Questo dovrebbe funzionare come ci si aspetta:

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

*original_first = \&first; 

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

Answer 2

nel codice, Perl interpreta entrambe le dichiarazioni sub simili a questo:

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

in modo che entrambi le assegnazioni per &first finiscono accadendo prima di salvare la copia e chiamando la routine. la correzione è quello di rendere la seconda dichiarazione in un incarico di esecuzione:

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

vedere il modulo Hook::LexWrap, che può gestire tutto questo per voi. Se non vuoi usare il modulo, guarda la fonte, che ti mostra esattamente come farlo.