Losbandigheid RELEASEAAGE - CALL Acties bij vrijlating.
Download nu

Losbandigheid Rangschikking & Samenvatting

Losbandigheid Tags

Perl-module telefoongesprek vrijlating CALL ACTIES release acties Losbandigheid

Losbandigheid Beschrijving

RELEASEACTIE - Oproepacties bij vrijlating. RELEASEAAGE - CALL ACTIES OP RELEASE.SYNOPSIS GEBRUIKEN RELEASEACTIE 'ON_REASE'; {# OO Style My $ Greep = Releasestation-> NIEUW (SUB {print "spuiten scopitten"}); print "in scopen"; } {# Functional Style My $ Greep = On_Release {Print "SCOPEN"}; print "in scopen"; } {mijn $ rollback = on_reyease {rollback_trans ()}; if (do_stuff ()) {$ rollback-> annuleren (); }} Dit biedt een eenvoudige manier om ondoorzichtige handgrepen te maken die iets doen wanneer ze worden vernietigd. Er zijn twee manieren om een nieuw handvat te maken. Beide nemen een of meer argumenten, waarbij het eerst de actie moet worden gevolgd wanneer het handvat wordt vrijgegeven en de (optionele) rustende de argumenten die het handvat zal krijgen. Nieuwe is de methode georiënteerde constructor. Mijn $ handgreep = Reliumactie-> Nieuw (sub {Print Shift}, "Goodbye Cruel Worldn"); en een optionele functie on_rease die u kunt importeren. Voor degenen die van dat soort dingen houden, heb ik het prototype @ verstrekt voor syntactische suiker. Mijn $ handgreep = on_release {print "Goodbye Cruel Worldn"}; en mocht u besluiten dat u immers de actie niet wilt uitvoeren, kunt u de methode Annuleren () bellen. Zoals voorgesteld in de synopsis, is dit handig als u transactionele mechanica wilt opzetten. Maak de release-actie uw opruimen. En wanneer u uw wijzigingen verbindt, annuleert u de opruiming. Sample Gebruik ReleaseAction 'On_rease'; # Dit doet hetzelfde als de module selectsaver. Sub tmp_select {on_reylease {Select Shift} Selecteer Shift; } Print "Deze afdruk gaat naar stdoutn"; {My $ Hold_Select = TMP_Select (* Stderr); Print "Deze afdruk gaat naar Stderrn"; } Print "afdrukken naar stdout weer"; een langer voorbeeld gebruik karper; gebruik CWD; gebruik een vrijleasestal; Sub CD_TO {CHDIR ($ _ ) of bekennen ("KAN NIET CHDIR AAN $ _ : $!"); } sub tmp_cd {mijn $ cwd = cwd (); CD_TO (SHIFT); RELEASEACTIE-> NIEUW (CD_TO, $ CWD); } Sub something_interesting {My $ IN_DIR = TMP_CD ("SOME_DIR"); # Doe iets interessants in de nieuwe dir # ik zal automatisch terugkeren naar de oude dir # wanneer ik de subroutine afsluit en $ in_dir gaat # uit de reikwijdte. } Vereisten: · Perl

Losbandigheid Gerelateerde software