קוף :: תיקון :: פעולה גלישת / הוספה / החלף / מחיקה משנה מחבילה אחרת (עם שחזור)
הורד עכשיו

קוף :: תיקון :: פעולה דירוג וסיכום

קוף :: תיקון :: פעולה תגים

פרל מודול תיקון perl תת

קוף :: תיקון :: פעולה תיאור

קוף-תיקון הוא המעשה של שינוי חבילה בזמן ריצה: הוספת ששגרה / שיטה, החלפה / מחיקה / גלישה אחרת, וכו 'פרל עושה את זה קל לעשות את זה, למשל: # להוסיף * ששגרת { "Target :: sub1 "} = תת {...}; # דרך אחרת, ניתן לעשות זאת מכל חבילת קובץ היעד; sub2 תת {...} # למחוק ששגרת undef * { "Target :: sub3"}; קוף :: תיקון :: פעולה הוא מודול פרל שגורם אפילו דברים קלים יותר על ידי עוזר לך ליישם ערימה של טלאים unapply אותם מאוחר יותר ב Monkey order.SYNOPSIS שימוש גמיש :: תיקון :: פעולה QW (patch_package); לארוז Foo; תת sub1 {לומר "sub1 של Foo"} sub2 תת {לומר "sub2 של Foo, args =", להצטרף ( "", @_)} meth1 תת {עצמי $ שלי = משמרת; אומרים "meth1 של Foo"} לארוז בר; שלנו @ISA = QW (Foo); חבילות מרכזיות; h $ שלי; # ידית אובייקט $ שלי foo = Foo-> חדשות; בר $ שלי = בר-> חדשות; # החלפת ששגרת $ h = patch_package ( 'Foo', 'sub1', 'להחליף', משנה { "qux"}); Foo :: sub1 (); # אומר "qux" undef $ h; Foo :: sub1 (); # אומר "sub1 של Foo" # הוספת ששגרת $ h = patch_package ( 'Foo', 'sub3', 'הוסף', משנה { "qux"}); Foo :: sub3 (); # אומר "qux" undef $ h; Foo :: sub3 (); # מת # מחיקת h $ ששגרת = patch_package ( 'Foo', 'sub2', 'למחוק'); Foo :: sub2 (); # מת undef h $; Foo :: sub2 (); # אומר "sub2 של Foo, args =" # גלישת ששגרת $ h = patch_package ( 'Foo', 'sub2', 'לעטוף', משנה {שלי $ CTX = משמרת; למשל "גלישת $ CTX -> {החבילה} :: $ CTX -> {SUBNAME} "; $ CTX -> {orig} -> (@_);}); Foo :: sub2 (1,2,3); # אומר "גלישת Foo :: sub2" אז "sub2 של Foo, args = 1,2,3" undef $ h; Foo :: sub2 (1,2,3); # אומר "sub2 של Foo, args = 1,2,3" # הערמה טלאים (הערה: באמת יכול להיות שלא הוחל בסדר אקראי) שלי ($ H2, H3 $); h = $ patch_package ( 'Foo', 'sub1', 'להחליף', משנה { "qux"}); Foo :: sub1 (); # אומר "qux" $ H2 = patch_package ( 'Foo', 'sub1', 'למחוק'); Foo :: sub1 (); # מת $ H3 = patch_package ( 'Foo', 'sub1', 'להחליף', משנה { "quux"}); Foo :: sub1 (); # אומר "quux" undef H3 $; Foo :: sub1 (); # מת undef H2 $; Foo :: sub1 (); # אומר "qux" undef $ h; Foo :: sub1 (); # אומר "sub1 של Foo" בדף הבית של מוצרים

קוף :: תיקון :: פעולה תוכנה קשורה