Bir altprogramı nasıl yeniden tanımlayabilirim ve eski olanı nasıl saklayabilirim?

Question

İşte elde etmek istediğim bu:

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" 

Ben first için sembol kaydederek, daha sonra (isim original_first altında) orijinal alt yordamı çağırmak mümkün olurdu ve ayrıca muktedir olduğu düşünülmektedir

first'u aramak ve yeniden tanımlanmış olanı al. Bununla birlikte, original_first numaralı telefonu ararsam, "bu ilk olarak yeniden tanımlanır" ı almaya devam ediyorum. Bu işi yapmak için ne yapmam gerekiyor?

Answer 1

beklediğiniz gibi bu çalışması gerekir: kopyasını kaydetmeden önce oluyor &first sonuna kadar

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

böylece hem atamaları: Kodunuzdaki

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

*original_first = \&first; 

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

Answer 2

, Perl buna benzer alt beyanları hem yorumladığı ve rutinleri çağırmak. düzeltme, bir çalışma zamanı atama içine ikinci beyanda yapmaktır:

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

sizin için tüm işleyebilir Hook::LexWrap modülü, bakınız. Modülü kullanmak istemiyorsanız, tam olarak nasıl yapacağınızı gösteren kaynağa bakın.