Gtk2 :: ex :: threads :: dbi

Alcançar a funcionalidade de DBI assíncrona para aplicativos GTK2-Perl usando Perl Ithreads
Baixe Agora

Gtk2 :: ex :: threads :: dbi Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Ofey Aikon
  • Site do editor:
  • http://search.cpan.org/~ofeyaikon/

Gtk2 :: ex :: threads :: dbi Tag


Gtk2 :: ex :: threads :: dbi Descrição

Alcançar a funcionalidade do DBI assíncrono para aplicativos GTK2-Perl usando Perl Ithreads GTK2 :: Ex :: Threads :: DBI é um módulo Perl que irá ajudá-lo a atingir essa funcionalidade através do uso de Perl Ithreads. Uma funcionalidade semelhante a DBI assíncrona é obtida através do uso de retornos de chamada de um thread separado.Synopsis Use Glib QW (verdadeiro falso); Use gtk2 qw / -init -threads-init /; Use GTK2 :: Ex :: Threads :: DBI; Use QW armazenável (liberdade de descongelamento); My $ MyThread = gtk2 :: ex :: threads :: dbi-> novo ({dsn => 'dbi: mysql: teste: localhost', user => 'root', passwd => 'teste', attr => { RaisError => 1, autocommit => 0}}); Meu $ Consulta = $ MyThread-> Register_Query (Redef, \ Call_SQL, \ Call_back); $ mythread-> Iniciar (); Meu botão $ = gtk2 :: Button-> Novo ("buscar dados da tabela usando o padrão"); $ Button-> Signal_Connect (clicou => sub {my $ pattern = $ Entry-> get_text (); #get o padrão $ query-> execute ();}); # Esta função é chamada de dentro do thread sub call_sql {my ($ dbh, $ sqlparams) = @_; Meus $ params = descongelamento $ sqlparams; Meu $ STH = $ DBH-> Preparar (QQ {# Minha consulta longa complicada que leva muito tempo para completar o Select * from xxx, onde Yyy gosta? Limite 1000}); $ sth-> Execute ('%'. $ params -> . '%'); meu @Result_Array; Enquanto (meu @ary = $ sth-> fetchrow_array ()) {push @result_array, @yy; } return \ @Result_Array; } # Esta função é chamada de dentro do tópico após o SQL Execution Sub Call_back {My ($ Self, $ result_array) = @_; @ {$ slist -> {Data}} = (); # Vamos preencher um simplelista com os dados foreach meu $ x (descongelhar $ result_array) {push @ {$ slist -> {dados}}, @ $ x; }} Requisitos: · Perl.


Gtk2 :: ex :: threads :: dbi Software Relacionado

Vfssimple.

Uma biblioteca para acesso magicamente ao arquivo w / o transportar o método ...

138

Download