draden Perl-tolk-gebaseerde draden
Download nu

draden Rangschikking & Samenvatting

draden Tags

Perl-module perl threads tolk Perl-tolk Perl-threads

draden Beschrijving

Perl-tolk-gebaseerde draden Dit is een op Perl-tolk gebaseerde draden-module.synopsis Gebruik draden ('Yield', 'Stack_Size' => 64 * 4096, 'EXIT' => 'threads_only', 'stringify'); Substart_thread {My @ARGS = @_; Print ('Thread gestart:', Word lid ('', @args), " ");} mijn $ thr = draden-> creëren ('start_thread', 'argument'); $ thr-> join (); threads-> creëren (sub {print (" Ik ben een draad ");}) -> Join (); mijn $ thr2 = async {foreach (@Files) {...}}; $ thr2-> join (); if (mijn daling = $ thr2-> fout () ) {Warn ("Discour Fout: $ ERR ");} # Inroepende draad in lijstcontext (impliciet) zodat het een lijst kan retourneren Mijn ($ thr) = threads-> maken (sub {return (qw / abc /);}); # of vermeld lijstcontext expliciet mijn $ thr = threads-> maken ({'context' => 'lijst'}, sub {return (qw / abc /);}); mijn @resultaten = $ dr.> join (); $ thr-> los ); # Krijg een thread's object $ thr = thread-> zelf (); $ thr = threads-> object ($ TID); # KRIJG EEN DRAAD-ID $ TID = DRAADS-> TID (); $ TID = $ DRH- > TID (); $ TID = "$ thR"; # Geef andere threads een kans om draden-> opbrengst () te draaien; opbrengst (); # lijsten met niet-vrijstaande threads Mijn @threads = threads-> lijst (); My $ Thread_Count = Threads-> Lijst (); My @Running = thread-> lijst (threads :: draaien); mijn @joinable = threads-> lijst (threads :: meinable); # test draadobjecten als ($ thrl = = $ thr2) {...} # Beheer thread stapel maat $ stack_size = threads-> get_stack_size (); $ old_size = threads-> set_stack_size (32 * 4096); # Maak een draad met een specifieke context en stapel maat MIJN $ Thr = Threads-> Create ({'context' => 'lijst', 'Stack_Size' => 32 * 4096, 'Exit' => 'thread_only'}, foo); # Krijg thread's context My $ WantArray = $ Thr-> Wantrap (); # Controleer de toestand van de draad als ($ thr-> is_running ()) {SLEEP (1); } if ($ thr-> is_joinable ()) {$ thr-> join (); } # Verzend een signaal naar een draad $ dry> doden ('Sigusr1'); # Sluit een draaddraden-> afslag (); Vereisten: · Perl

draden Gerelateerde software