Re: [Dbix-class] Performance Issue

Bill McCormick Mon, 20 Feb 2012 14:07:13 -0800

Bill McCormick wrote, On 2/20/2012 10:30 AM:

I just wrote a tiny little script, just using DBI and DBD::SQLite, andthere is no delay.


#!/usr/bin/perl

use strict;

use DBI;
use DBD::SQLite;


my $recipes_sql = q/SELECT * FROM recipe/;

my $dbfile="/home/fiber/data/recipe.db3";

my $dbh = DBI->connect("dbi:SQLite:$dbfile") or croak $DBI::errstr;

my $recipe_ary_ref = $dbh->selectall_arrayref($recipes_sql,{ Slice =>{} });


foreach my $recipe ( @$recipe_ary_ref ) {
    print qq/$recipe->{ID} $recipe->{NAME}\n/;
}


Thanks!!

Alexander Hartmaier wrote, On 2/20/2012 10:02 AM:

Are you sure you measure correctly?
Did you include Perl startup time by accident?

Am 2012-02-20 16:09, schrieb Bill McCormick:

I'm just getting started using DBIx::Class and I am a little surprised
at performance (rather, lack there of).

Perhaps I've missed some key point, index or other such thing, but it
takes well over a second to get results on a single table that has
very few records (<20).

I am running on Debian Squeeze (Linux 2.6.33 i586) with perl (v5.10.1)
and SQLite3 (3.7.3).

If I export DBIC_TRACE=1 and then run the my script, I see this:

     SELECT me.ID, me.NAME FROM recipe me:

So then if I run that query in sqlite3, it is markedly faster. I
understand that the DBIx::Class needs a little more time, this delay
makes me think I must have missed something.

I added some metrics. There is a HUGE (~1.5 sec) difference that needsto be accounted for here. Either I'm doing something very wrong (verylikely) or there is something very wrong with DBIx.


Each test starts with this:
BEGIN {
    print qq/***** Start Test *****\n/;
    $start = clock();
    print qq/Start: $start\n/;
}

The part that takes the longest is loading the DBIx::Schema compared toloading DBI & DBD, but even the DB connect an query takes longer.


use MyApp::Schema;

$tick = clock();
$ticktock = $tick - $start;
print qq/Load Use: $ticktock\n/;

compared to:
use DBI;
use DBD::SQLite;

$tick = clock();
$ticktock = $tick - $start;
print qq/Load Use: $ticktock\n/;

I appreciate any insight at all.

Thanks!!

Output here:
$:/home/fiber/www/cgi-bin# ./recipe-test-DBIx.pl;./recipe-test-DBI.pl
***** Start Test *****
Start: 0.08
Load Use: 1.12
Connect: 1.32
Query: 1.65
RECIPE 1
RECIPE 2
RECIPE 3
RECIPE 4
RECIPE 5
RECIPE 6
RECIPE 7
RECIPE 8
RECIPE 9
RECIPE 10
RECIPE 11
RECIPE 12
RECIPE 13
RECIPE 14
RECIPE 15
RECIPE 16
RECIPE 17
RECIPE 18
RECIPE 19
Complete: 1.66
***** Start Test *****
Start: 0.08
Load Use: 0.17
Connect: 0.18
Query: 0.19
1 RECIPE 1
2 RECIPE 2
3 RECIPE 3
4 RECIPE 4
5 RECIPE 5
6 RECIPE 6
7 RECIPE 7
8 RECIPE 8
9 RECIPE 9
10 RECIPE 10
11 RECIPE 11
12 RECIPE 12
13 RECIPE 13
14 RECIPE 14
15 RECIPE 15
16 RECIPE 16
17 RECIPE 17
18 RECIPE 18
19 RECIPE 19
Complete: 0.19

_______________________________________________
List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
Searchable Archive: http://www.grokbase.com/group/[email protected]

Re: [Dbix-class] Performance Issue

Reply via email to