#!/usr/bin/perl

use strict;
use DBI;
use Benchmark qw(:all);

#unlink ('/tmp/sqlite_test.db');
my $dbh = DBI->connect("dbi:SQLite:dbname=/tmp/sqlite_test.db","","");
my $str = '#' x 4096;
my $sql = "INSERT INTO test VALUES (\'$str\')";
my $t0  = new Benchmark;

$dbh->do("CREATE TABLE test (field1 text);");
$dbh->do("BEGIN;");

for (my $i; $i < 10; $i++) {
    timethis( -15 , \&insert_record );
}

$dbh->do("COMMIT;");

sub insert_record {
    $dbh->do($sql);
    return;
}

##</code><code>##

3122.67/s (n=50681)
3166.34/s (n=48825)
3165.59/s (n=50966)
3206.15/s (n=51619)
3157.13/s (n=50230)
3179.75/s (n=50399)
3188.18/s (n=50692)
3211.26/s (n=51316)
3098.32/s (n=49914)
3046.30/s (n=49807)