NAME
Gtk2::Ex::Threads::DBI - Achieving asynchronous DBI like functionality for gtk2-perl applications using perl ithreads.
DESCRIPTION
I want to have my perl-gtk app query a database using DBI and display the query results. Some of the queries can take minutes to run and a naive implementation would mean all GUI interaction was blocked until the $dbh->execute returned.
This seems to be a fairly common problem.
http://mail.gnome.org/archives/gtk-perl-list/2004-November/msg00055.html
http://mail.gnome.org/archives/gtk-perl-list/2005-August/msg00140.htmlThis package will help you achieve this functionality through the use of perl ithreads. An asynchronous DBI like functionality is achieved through using callbacks from a separate thread.
SYNOPSIS
use Glib qw(TRUE FALSE);
use Gtk2 qw/-init -threads-init/;
use Gtk2::Ex::Threads::DBI;
use Storable qw(freeze thaw);
my $mythread = Gtk2::Ex::Threads::DBI->new( {
dsn => 'DBI:mysql:test:localhost',
user => 'root',
passwd => 'test',
});
my $query = $mythread->register_query(undef, \&call_sql, \&call_back);
$mythread->start();
my $button = Gtk2::Button->new('fetch data from table using pattern');
$button->signal_connect (clicked =>
sub {
my $pattern = $entry->get_text(); #Get the pattern
$query->execute([$pattern]);
}
);
# This function gets called from inside the thread
sub call_sql {
my ($dbh, $sqlparams) = @_;
my $params = thaw $sqlparams;
my $sth = $dbh->prepare(qq{
# my complicated long query that takes a long time to complete
select * from xxx
where yyy like ?
limit 1000
});
$sth->execute('%'.$params->[0].'%');
my @result_array;
while (my @ary = $sth->fetchrow_array()) {
push @result_array, \@ary;
}
return \@result_array;
}
# This function gets called from inside the thread after sql execution
sub call_back {
my ($self, $result_array) = @_;
@{$slist->{data}} = (); #We'll populate a SimpleList with the data
foreach my $x (thaw $result_array) {
push @{$slist->{data}}, @$x;
}
}METHODS
new($connectionparams);
Accepts a hash containing the DBI connection params.
my $mythread = Gtk2::Ex::Threads::DBI->new( {
dsn => 'DBI:mysql:test:localhost',
user => 'root',
passwd => 'test',
});register_query($caller_ref, $call_sql, $call_back);
All the SQLs that you want to execute should be registered through here
my $threaded_query = $mythread->register_query(undef, \&call_sql, \&call_back);The first parameter is a reference to the caller itself. If you are calling this from a simple script, you can pass undef along.
If you are calling this from another package, it is a good idea to pass the $self as $caller_ref
my $threaded_query = $mythread->register_query($self, \&call_sql, \&call_back);This argument will be passed back to you when the \&call_back get executed.
The register_query API returns a handle to the the threaded_query object. You can later on call execute the \&call_sql by specifying.
$threaded_query->execute()$threaded_query->execute([$sqlparams]);
This is where the actual sql query gets executed. The [$sqlparams] arrayref that you send here will be available as an argument to the \&call_sql callback function.
The callback functions themselves should be of the following form
# This function gets called from inside the thread
sub call_sql {
# $dbh is of course the database handle
# $sqlparams is the same arrayref that you had passed along
# while calling $threaded_query->execute([$sqlparams]);
my ($dbh, $sqlparams) = @_;
# Remember, it is very important to thaw the $sqlparams
my $params = thaw $sqlparams;
# Plain old DBI stuff
my $sth = $dbh->prepare(qq{
# my complicated long query that takes a long time to complete
select * from xxx
where yyy like ?
});
$sth->execute('%'.$params->[0].'%');
my @result_array;
while (my @ary = $sth->fetchrow_array()) {
push @result_array, \@ary;
}
# Since we are using two threads and since objects such as
# statement handles cannot be 'shared' between the two threads,
# we have to shuttle these pieces of data back and forth.
# Here the result set has to be loaded into an array and sent back
return \@result_array;
}
# This function gets called from inside the thread after sql execution
sub call_back {
# $self is the first argument that you had passed while
# calling $mythread->register_query($self, \&call_sql, \&call_back);
# Like I told you before, this'll be of use if you are calling this
# from within another class. For example, you need this to get a
# reference to the $self->{slist} if this were oo code.
#
# $result_array is the same array_ref that you just passed back
# as the return value from $call_sql
# Remember, you need to thaw this once again
my ($self, $result_array) = @_;
@{$slist->{data}} = (); #We'll populate a SimpleList with the data
foreach my $x (thaw $result_array) {
push @{$slist->{data}}, @$x;
}
}start();
The actual thread execution starts here. I prefer using a single thread to handle all of my database queries. So I'll instantiate one $thread in my main program and then pass that along to all other child objects. All the child objects will register their sqls here and get new query handles. They will call these query handles as required. But there will be only one single thread that handles all the DBI calls.
The start() function has to be called very early in the main program. Preferrably before any widget is created.
http://mail.gnome.org/archives/gtk-perl-list/2003-November/msg00028.html
$mythread->start();stop();
Call this to do all clean up actions. Since we are using polling, it can take as long as the polling_interval to actually join the child thread.
$mythread->stop;
print "Wait for child thread to die...\n";
sleep 1;
Gtk2->main_quit;set_polling_interval($polling_interval);
Sets the polling interval. By default it is set to 500ms. Keeping it too short will cost too many CPU cycles. Keeping it too large will cause delays between events.
$mythread->set_polling_interval(300);AUTHOR
Ofey Aikon, <ofey.aikon at gmail dot com>
ACKNOWLEDGEMENTS
To the wonderful gtk-perl-list.
COPYRIGHT & LICENSE
Copyright 2005 Ofey Aikon, All Rights Reserved.
This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details.
You should have received a copy of the GNU Library General Public License along with this library; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307 USA.