Hi,
I'm new to Racket, and i would like to know why sqlite queries are so slow in
my test program.
This program imports some data from a text file into a simple sqlite DB. It
takes 35s with the INSERT queries and 5-6s without them.
I've done the same thing with other languages, all do far better. For example
with perl the same code runs in 8s with the queries, and 2-3s with them.
I know that startup and regex are (reasonably ?) slower in racket, but queries
seems to be very slow.
Am i doing somethin wrong?
Thanks for your help.
test done by swapping the commented line with the next. Code :
-----------------------------------------------------
#!/usr/bin/env racket
#lang racket/base
(require racket/list racket/string db/base db/sqlite3)
(define DBFILE "database.rkt.sql")
(define rx #rx"[~^]+")
(define sdb #f)
(define (openDatas)
(unless sdb (set! sdb (sqlite3-connect #:database DBFILE))))
(define (importDatas)
(when (file-exists? DBFILE) (delete-file DBFILE))
(set! sdb (sqlite3-connect #:database DBFILE #:mode 'create))
(start-transaction sdb)
(query-exec sdb "CREATE TABLE groups (fam INTEGER, name STRING , PRIMARY
KEY (fam))")
(query-exec sdb "CREATE TABLE foods (alim INTEGER, fam INTEGER, name STRING
, PRIMARY KEY (alim))")
(query-exec sdb "CREATE TABLE nutrients (nutr INTEGER, unit STRING, short
STRING, name STRING , PRIMARY KEY (nutr))")
(query-exec sdb "CREATE TABLE contents (alim INTEGER, nutr INTEGER, val
FLOAT , PRIMARY KEY (alim, nutr))")
(process-file "FD_GROUP.txt" "groups" 2)
(process-file "FOOD_DES.txt" "foods" 3)
(process-file "NUTR_DEF.txt" "nutrients" 4)
(process-file "NUT_DATA.txt" "contents" 3)
(commit-transaction sdb))
(define (process-file fname table nb)
(define Q (prepare sdb (string-append "INSERT INTO " table " VALUES ("
(string-join (for/list ([x nb]) "?") ",") ")")))
(call-with-input-file fname (lambda (file)
(for ([line (in-port read-line file)])
;(bind-prepared-statement Q (take (regexp-split rx line 1) nb))))))
(query-exec sdb (bind-prepared-statement Q (take (regexp-split rx
line 1) nb)))))))
(importDatas)
-----------------------------------------------------
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
