tópicos
Baixe Agora

tópicos Classificação e resumo

tópicos Tag

Módulo Perl. perl Tópicos intérprete Intérprete Perl Tópicos Perl.

tópicos Descrição

Tópicos baseados em intérprete Perl Este é um módulo de threads baseado em intérprete perl.Synopsis Use threads ('rendimento', 'stack_size' => 64 * 4096, 'exit' => 'threads_only', 'stringify'); sub start_thread {@args = @_; Imprimir ('Thread começou:', junte ('', @args) " ");} my $ thr = threads-> criar ('start_thread', 'argumento'); $ thr-> junção (); threads-> Create (sub {Imprimir (" eu sou um thread ");}) -> junção (); meu $ thr2 = async {foreach (@files) {...}}; $ thr2-> junção (); se (meu $ err = $ thr2-> erro () ) {warn ("Erro de discussão: $ err ");} # Invocar o contexto da lista (implícito) para que ele possa retornar uma lista Meus ($ thr) = threads-> Create (sub {retorno (QW / ABC /);}); # ou especificar o contexto da lista explicitamente $ thr = threads-> Criar ({'context' => 'LIST'}, sub}, sub {retorno (qw / abc /);}); my @results = $ thr-> unir (); ); # Obter um objeto de um thread $ thr = threads-> self (); $ thr = threads-> objeto ($ tid); # obter um ID $ TID = threets-> tid (); $ tid = $ thr- > TID (); $ tid = "$ thr"; # dar a outros tópicos uma chance de executar tópicos-> rendimento (); rendimento (); # listas de tópicos não destacados Meus @threads = threads-> Lista (); Meu $ Thread_Count = Threads-> Lista (); Minha lista @running = threads-> Lista (threads :: em execução); my @Joinable = threads-> lista (threads :: untinable); # $ throk = = $ thr2) {...} # Gerencie o tamanho da pilha de linha $ stack_size = threads-> get_stack_size (); $ old_size = threads-> set_stack_size (32 * 4096); # Crie um thread com um tamanho específico e o tamanho da pilha thr = threads-> criar ({'context' => 'List', 'Stack_Size' => 32 * 4096, 'Sair' => 'thread_only'}, foo); # Obter o contexto do thread My $ SAIRARRAY = $ thr-> WailarRay (); # Verifique o estado da rosca se ($ thr-> is_running ()) {sono (1); } se ($ thr-> is_joinable ()) {$ thr-> junção (); } # Enviar um sinal para um thread $ thr-> matar ('sigusr1'); # Sair de um segmento de thread-> Sair (); Requisitos: · Perl.

tópicos Software Relacionado