Fäden

Perl Interpreter-basierte Threads
Jetzt downloaden

Fäden Ranking & Zusammenfassung

Anzeige

  • Rating:
  • Lizenz:
  • Perl Artistic License
  • Preis:
  • FREE
  • Name des Herausgebers:
  • Jerry D. Hedden
  • Website des Verlags:
  • http://search.cpan.org/~jdhedden/

Fäden Stichworte


Fäden Beschreibung

Perl-Interpreter-basierte Threads Dies ist ein Perl-Interpreter-Basis-Threads-Modul.Synopsis Verwenden Sie Threads ('Ausbeute', 'stapel_size' => 64 * 4096, 'EXIT' => 'Threads_Only', 'erkranig'); sub start_thread {my @args = @_; Drucken ('Thread startete:', Join ('', @args), " ");} My $ thr = Threads-> Erstellen ('start_thread', 'argument'); $ thr-> Join (); Threads-> Erstellen (Sub {Print (" Ich bin ein Thread ");) ) {Warn ("Thread-Fehler: $ ERR) ");} # Thread in List-Kontext (implizit) aufrufen, sodass eine Liste meine ($ thr) = threads-> erstellen (sub {return (qw / abc /);}); # oder angeben Listenkontext explizit mein $ thr = threads-> erstellen ({'context' => 'list'}, sub {Return (QW / ABC /);}); My @results = $ thr-> Join (); $ thr-> trennen ( ); # Holen Sie sich ein Faden-Objekt $ thr = Threads-> Self (); $ thr = Threads-> Objekt ($ TID); # Holen Sie sich einen Thread-ID $ TID = Threads-> Tid (); $ tid = $ thr- > TID (); $ tid = "$ thr"; # Geben Sie andere Threads eine Chance, Fäden-> Ausbeute (); Rendite (); # Listen von nicht freistehenden Threads My @Threads = Threads-> List (); Meine $ Thread_Count = Threads-> List (); My @Running = Threads-> Liste (Threads :: Laufen); My @joinable = Threads-> Liste (Threads :: Jetable); # Thread-Objekte, wenn ($ thr1 = = $ Thr2) {...} # Verwalten von Threadstapel Größe $ stack_size = Threads-> get_stack_size (); $ old_size = threads-> set_stack_size (32 * 4096); # Erstellen Sie einen Thread mit einem bestimmten Kontext und Stapelgröße mein $ Thr = Threads-> Erstellen ({'CONTEXT' => 'LIST', 'STACK_SIZE' => 32 * 4096, 'EXIT' => 'Thread_Only'}, foo); # Holt den Kontext des Threads mein $ WantaRray = $ thr-> Wantarray (); # Den Zustand des Threads überprüfen, wenn ($ thr-> is_strunning ()) {Schlaf (1); } if ($ thr-> is_joinable ()) {$ thr-> join (); } # Senden Sie ein Signal an einen Thread $ thr-> Kill ('SIGUSR1'); # Beenden Sie ein Gewindefäden-> Beenden (); Anforderungen: · Perl.


Fäden Zugehörige Software