hilos Roscas basadas en intérpretes perl
Descargar ahora

hilos Clasificación y resumen

hilos Etiquetas

Módulo perl perla Hilos Interprete Intérprete de Perl Hilos perl

hilos Descripción

Roscas basadas en intérpretes perl Este es un módulo de hilos basado en el intérprete de Perl.Synopsis Use hilos ('rendimiento', 'Stack_size' => 64 * 4096, 'Salir' => 'threads_only', 'rinify'); Sub Start_Thread {my @args = @_; Imprimir ('Hilo comenzó:', Únete a ('', @Args), " ");} My $ thr = hilos-> crear ('start_thread', 'argument'); $ thr-> Únete (); hilos-> crear (Sub {impresión (" soy un hilo ");}) -> Únete a (); My $ THR2 = Async {foreach (@files) {...}}; $ THR2-> Únete (); Si (MIS $ ERR = $ THR2-> ERROR () ) {advierte ("error de hilo: $ error ");} # Invocar el hilo en el contexto de la lista (implícito) para que pueda devolver una lista My ($ thr) = hilos-> crear (Sub {retorno (QW / ABC /);}); # o especificar el contexto de la lista explícitamente mi $ thr = hilos-> Crear ({'contexto' => 'lista'}, sub {retorno (qw / abc /);}); Mis @results = $ Thr-> Únete (); $ Thr-> Detach ( ); # Obtenga el objeto de un hilo $ thr = hilos-> uno mismo (); $ thr = hilos-> objeto ($ tid); # Obtenga la identificación de un hilo $ tid = hilos-> tid (); $ tid = $ Thr- > TID (); $ TID = "$ THR"; # Dar otros hilos la oportunidad de ejecutar hilos-> Rendimiento (); Rendimiento (); # Listas de hilos no separados Mis @Threads = Threads-> LISTA (); My $ THEPT_COUNT = THRINGS-> LISTA (); MIS @RUNNING = THRESS-> LISTA (THRESTS :: FUNCIONAMIENTO); MI @JOBABLE = THRESS->> LISTA (HILLS :: Linkable); # PRUEBA DE OBJETIVOS DE TR1 ($ THR1 = = $ THR2) {...} # Administrar el tamaño de la pila de rosca $ stack_size = hilos-> get_stack_size (); $ old_size = hilos-> set_stack_size (32 * 4096); # Crear un hilo con un contexto específico y un tamaño de pila My $ TR = THRESHS-> Crear ({'contexto' => 'List', 'Stack_size' => 32 * 4096, 'Salir' => 'Thread_Only'}, foo); # Obtenga el contexto del hilo My $ Wantarray = $ Thr-> Wantarray (); # Verifique el estado del hilo si ($ THR-> IS_RUNNING ()) {SLEEP (1); } si ($ THR-> es_joinable ()) {$ THR-> Únete (); } # Envíe una señal a un hilo $ Thr-> Matar ('Sigusr1'); # Salir de un hilo de hilo-> Salir (); Requisitos: · Perl

hilos Software relacionado