どのようにしてサブルーチンを再定義し、古いものも保持できますか？

Question

は、ここで私が達成したいものです。

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" 

私はfirstのシンボルを保存することで、私は後で（名前original_first下）オリジナルのサブルーチンを呼び出すこともできるようにすることができるだろうと思いましたfirstに電話をかけ、再定義してください。しかし、私がoriginal_firstと呼んでも、私は "これが最初に再定義されました"ということをまだ得ています。私はこの仕事をするために何をしなければなりませんか？

Answer 1

あなたが期待するように、これは動作するはずです：コピーを保存する前に起こっ&first終わりまでに

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

ので、両方の割り当て：あなたのコード内

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

*original_first = \&first; 

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

Answer 2

は、Perlはこれに類似したサブ宣言の両方を解釈しルーチンを呼び出す。修正は、実行時の割り当てに2番目の宣言をすることです：

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

はあなたのためにすべてのことを扱うことができるHook::LexWrapモジュールを参照してください。モジュールを使用したくない場合は、ソースを見てください。ソースの表示方法を正確に示しています。