Tôi làm cách nào để xác định lại chương trình con và giữ lại chương trình con cũ?

Question

Dưới đây là những gì tôi muốn đạt được:

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" 

Tôi nghĩ rằng bằng cách tiết kiệm là biểu tượng cho first, tôi muốn có thể sau đó gọi chương trình con gốc (dưới tên original_first) và cũng để có thể để gọi first và nhận số được xác định lại. Tuy nhiên, nếu tôi gọi số original_first, tôi vẫn nhận được thông báo "đây là lần đầu tiên được xác định lại". Tôi phải làm gì để thực hiện công việc này?

Answer 1

này nên làm việc như bạn mong đợi:

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

*original_first = \&first; 

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

Answer 2

trong mã của bạn, Perl giải thích cả hai tờ khai phụ tương tự như sau:

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

vì vậy cả hai công việc để &first cuối lên xảy ra trước khi lưu bản sao và gọi các thói quen. sửa chữa là đưa tuyên bố thứ hai vào một nhiệm vụ thời gian chạy:

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

Xem mô-đun Hook::LexWrap, có thể xử lý tất cả điều đó cho bạn. Nếu bạn không muốn sử dụng các mô-đun, chỉ cần nhìn vào nguồn, trong đó cho bạn thấy chính xác làm thế nào để làm điều đó.