GTK2 :: EX :: DRAAD :: DBI Asynchrone DBI-achtige functionaliteit behalen voor GTK2-PERL-toepassingen met PERL ITHREADS
Download nu

GTK2 :: EX :: DRAAD :: DBI Rangschikking & Samenvatting

GTK2 :: EX :: DRAAD :: DBI Tags

Perl-module perl GTK2 asynchrone DBI Perl ithreads ithreads

GTK2 :: EX :: DRAAD :: DBI Beschrijving

Asynchrone DBI-achtige functionaliteit bereiken voor GTK2-PERL-toepassingen met behulp van PERL ETHREADS GTK2 :: EX :: Threads :: DBI is een PERL-module die u helpt bij het bereiken van deze functionaliteit door het gebruik van PERL ITHREADS. Een asynchrone DBI-achtige functionaliteit wordt bereikt door callbacks uit een afzonderlijke thread te gebruiken. Synopsis Gebruik Glib QW (True False); Gebruik GTK2 QW / -Init -threads-init /; Gebruik GTK2 :: EX :: DRAAD :: DBI; gebruik bewaarbare QW (FREEZE DISH); Mijn $ MyThread = GTK2 :: EX :: Threads :: DBI-> NIEUW ({DSN => 'DBI: MySQL: Test: localhost', gebruiker => 'root', passwd => 'Test', att => { StechError => 1, Autocommit => 0}}); mijn $ query = $ mythread-> register_query (undef, \ call_sql, \ call_back); $ mythread-> start (); Mijn $ knop = GTK2 :: knop-> NIEUW ('FETCH-gegevens van tabel met behulp van patroon'); $ Knop-> Signal_Connect (Clicked => Sub {My $ Pattern = $ Entry-> Get_Text (); #get het patroon $ query-> uitvoeren ($ patroon]);}); # Deze functie wordt geroepen van binnenuit de draad Sub Call_SQL {MY ($ DBH, $ SQLPARAMS) = @_; Mijn $ params = THAW $ SQLPARAMS; Mijn $ sth = $ dbh-> voorbereiden (QQ {# Mijn gecompliceerde lange zoekopdracht die een lange tijd duurt om SELECT * van xxx te voltooien, waar JJJE? Limiet 1000}); $ sth-> uitvoeren ('%'. $ Params -> . '%'); mijn @result_array; terwijl (mijn @ary = $ sth-> fetchrow_array ()) {push @result_array, \ @ary; } Return \ @Result_array; } # Deze functie wordt geroepen vanuit de binnenkant na SQL Execution Sub Call_Back {My ($ self, $ result_array) = @_; @ {$ SLIST -> {gegevens}} = (); # We zullen een SimpleList vullen met de gegevens Foreach My $ X (Thaw $ Result_array) {Push @ {$ SLIST -> {data}}, @ $ x; } } Vereisten: · Perl

GTK2 :: EX :: DRAAD :: DBI Gerelateerde software