Benchmark script for sergey's schema

marc/benchmarks/getdata-sergey

@@ -0,0 +1,32 @@
+#!/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;
+}