GTK2 :: Ex :: Threads :: dbi

Erreichung der asynchronen DBI-ähnlichen Funktionen für GTK2-Perl-Anwendungen mit Perl-Ithreads
Jetzt downloaden

GTK2 :: Ex :: Threads :: dbi Ranking & Zusammenfassung

Anzeige

  • Rating:
  • Lizenz:
  • Perl Artistic License
  • Preis:
  • FREE
  • Name des Herausgebers:
  • Ofey Aikon
  • Website des Verlags:
  • http://search.cpan.org/~ofeyaikon/

GTK2 :: Ex :: Threads :: dbi Stichworte


GTK2 :: Ex :: Threads :: dbi Beschreibung

Erreichen der asynchronen DBI-Dateien wie Funktionen für GTK2-Perl-Anwendungen mit Perl-Ithreads GTK2 :: Ex :: Threads :: DBI ist ein Perl-Modul, mit dem Sie diese Funktionalität durch die Verwendung von Perl-Ithreads erreichen können. Eine asynchrone DBI-ähnliche Funktionalität wird durch Verwendung von Callbacks aus einem separaten Thread erreicht. Verwenden Sie GTK2 QW / -Init -Threads -IT /; Verwenden Sie GTK2 :: Ex :: Threads :: dbi; Verwenden Sie speicherbar QW (Freeze THAW); Mein $ mythread = gtk2 :: ex :: Threads :: dbi-> neu ({dsn => 'dbi: mysql: test: localhost', user => 'root', passwd => 'test', attr => { Sheeterror => 1, AutoCommit => 0}}); Meine $ Query = $ mythread-> register_query (undef, \ call_sql, \ call_back); $ myhread-> start (); Meine $ Button = GTK2 :: Button-> NEU ('Abrufen von Daten aus der Tabelle mit Muster'); $ button-> signal_connect (geklickt => sub {My $ Muster = $ Entry-> get_text (); # das Muster $ Query-> Execute ();}); # Diese Funktion wird von innen des Threads sub call_sql {My ($ dbh, $ sqlparams) = @_; meine $ params = thaw $ sqlparams; Meine $ STH = $ dbh-> Bereiten Sie (QQ {# MEINE komplizierte lange Abfrage, die lange dauert, dass sie die Auswahl von SELECT * von XXX angeht, wo yyy like? Limit 1000}); $ sth-> ausführen ('%'. $ params -> . '%'); mein @result_array; während (mein @ary = $ sth-> fetchrow_array ()) {Push @Result_Array, \ @ary; } Rendite \ @result_array; } # Diese Funktion wird von innen des Threads nach SQL-Ausführung sub call_back {My ($ self, $ result_array) = @_; @ {$ slist -> {data}} = (); # Wir füllen einen SimpleList mit den Daten feach My $ X (thaw $ result_array) {Push @ {$ Slist -> {data}}, @ $ x; } } Anforderungen: · Perl.


GTK2 :: Ex :: Threads :: dbi Zugehörige Software