sybperl-l Archive

From: Arjan van Rooijen <arjan dot vanrooijen at tridion dot com>
Subject: Poor performance of text/image on Windows 2000 using DBlib
Date: Aug 4 1999 9:14AM

Reading a blob (text object) from the database using DBlib (sybperl) seems
to be very slow on windows 2000, 27K in 2 seconds on a pentium II 366 Mhz
192 Mb mem. I have a very good performance on NT 4 with the same setup. Also
the dbreadtext gives the same result.

- Sybperl 2,09_03
- MS Windows 2000 server build 2031 (beta 3)
- ActiveState perl build 509 (5.005_02)
- MS Sql server 6.5 sp 5a

Any suggestion/help would be appriciated.

#!/usr/local/bin/perl -w

use lib 'config';
use Paths;
use DBConfig;
use strict;

use Sybase::DBlib;

use IPS::Database;
use IPS::Misc;

my ($dbcon) = new Sybase::DBlib $database_username, $database_password;
$dbcon->dbsetopt(DBTEXTSIZE,'1073741824',1024*1024*1024);

my (%document);

$dbcon->dbcmd(<dbsqlexec;
$dbcon->dbresults;

while (%document = $dbcon->dbnextrow(1))
{
		print $document{DOCUMENT_ID}, " - ",
length($document{SGML_INFO}),  "\n";
}


Arjan van Rooijen
Tridion - Professional Services
Burg. Stramanweg 101
1101 AA Amsterdam Zuidoost
The Netherlands
Tel. +31 (0)20 2010 530
Fax. +31 (0)20 2010 501
Mobile +31 (0)6 53211559