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