Comment pourrais-je redéfinir un sous-programme et conserver l'ancien aussi?

Question

Voici ce que je voudrais obtenir:

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" 

Je pensais qu'en sauvant le symbole de first, je serais en mesure d'appeler plus tard, le sous-programme d'origine (sous le nom original_first) et d'être également en mesure appeler first, et obtenir celui redéfini. Cependant, si j'appelle le original_first, je reçois toujours le "ceci est d'abord redéfini". Que dois-je faire pour que cela fonctionne?

Answer 1

Cela devrait fonctionner comme prévu:

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

*original_first = \&first; 

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

Answer 2

dans votre code, Perl interprète les deux déclarations sous similaires à ceci:

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

afin que les deux missions à &first finissent passe avant d'enregistrer la copie et en appelant les routines. la solution est de faire la deuxième déclaration dans une mission d'exécution:

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

Voir le module Hook::LexWrap, qui peut gérer tout cela pour vous. Si vous ne voulez pas utiliser le module, regardez simplement la source, qui vous montre exactement comment le faire.