[Koha-cvs] CVS: koha/marc/benchmarks getdata-sergey,NONE,1.1
Steve Tonnesen
tonnesen at users.sourceforge.net
Thu May 30 21:58:26 CEST 2002
- Previous message: [Koha-cvs] CVS: koha/marc/benchmarks benchmarkschema,1.3,1.4 generaterandomdata,1.1,1.2 getdata-paul,1.1,1.2 getdata-paul-regex,1.1,1.2 getdata-steve,1.1,1.2 runbenchmark,1.1,1.2
- Next message: [Koha-cvs] CVS: koha/C4 Acquisitions.pm,1.5.2.7,1.5.2.8
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/koha/koha/marc/benchmarks
In directory usw-pr-cvs1:/tmp/cvs-serv26856
Added Files:
getdata-sergey
Log Message:
Benchmark script for sergey's schema
--- NEW FILE ---
#!/usr/bin/perl
#
#
# Benchmark script for Sergey's marc db schema
use DBI;
my $dbh=DBI->connect("dbi:mysql:kohabenchmark", 'youruserid', 'yourpassword');
my $count=$ARGV[0];
my $print=$ARGV[1];
my $max=$ARGV[2];
my $bibid=$ARGV[3];
($max) || ($max=79998);
for ($i=0; $i<$count; $i++) {
($bibid) || ($bibid=int(rand($max))+1);
($print) && (print "BIBID: $bibid\n");
my $sth=$dbh->prepare("select F.tag,S.subfieldcode,S.subfieldvalue from marc_field_table_sergey F,marc_subfield_table_sergey S where F.fieldid=S.fieldid and F.bibid=$bibid order by F.fieldid,S.subfieldorder");
$sth->execute;
my $lasttag='';
while (my ($tag,$subfieldcode,$subfieldvalue) = $sth->fetchrow) {
if ($tag ne $lasttag) {
($print) && (print " Tag: $tag\n");
$lasttag=$tag;
}
($print) && (print " $subfieldcode $subfieldvalue\n");
}
$bibid=0;
}
- Previous message: [Koha-cvs] CVS: koha/marc/benchmarks benchmarkschema,1.3,1.4 generaterandomdata,1.1,1.2 getdata-paul,1.1,1.2 getdata-paul-regex,1.1,1.2 getdata-steve,1.1,1.2 runbenchmark,1.1,1.2
- Next message: [Koha-cvs] CVS: koha/C4 Acquisitions.pm,1.5.2.7,1.5.2.8
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Koha-cvs
mailing list