Jak zrychlit XBase?

Petr Nalevka nalevka na fzu.cz
Středa Září 29 11:49:51 MEST 1999


Diky za odpoved,
zmeril jsem odezvy a je to trochu min. Pripojeni k databazi 3 s,
metoda prepare 1-3 s (podle slozitosti SQL dotazu). Jednu vterinu 
take trva nez se spusti perl a zacne vykonavat skript. 
Vse se zatim odehrava na lokalnim pocitaci, takze pomala odezva 
nemuze byt zpusobena pomalou siti. K XBase pristupuji primo, nikoli 
pres ODBC.

tady je typicka ukazka, jak pristupuju k databazi.
Nenapada me nic co by se dalo zrychlit.

use CGI;
use DBI;
use XBase;
use CGI::Carp qw(fatalsToBrowser);
$dataIn = new CGI;
$dataIn->header();
$dbName     = "DBI:XBase:";
$dbUserName = "";
$dbPassword = "";
$cislo = $dataIn->param('CISLO');
print qq!Content-type: text/html

<html><body>!;
if ( $cislo =~ /\D/ )
{ print "neplatné èíslo"; }
else
{ 
$sql = "SELECT HESLO,AKTIVNI FROM copy.dbf WHERE (ID=" . $cislo . ")";
$dbh = DBI->connect($dbName);
$dataObject = $dbh->prepare($sql);
$dataObject->execute();
$dbRows = $dataObject->fetchall_arrayref();

# atd., atd .....

Petr Nalevka

ing. Petr Nálevka       Tel.: +420-2-6605-2723
oddeleni magnetismu     Fax:  +420-2-82-1227
Fyzikalni ustav AVCR    e-mail: nalevka na fzu.cz
Na Slovance 2, 18040 Praha 8


Další informace o konferenci Perl