← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to storage/myisam/ftbench/Ecreate.pl

Merged from trunk.

Show diffs side-by-side

added added

removed removed

Lines of Context:
storage/myisam/ftbench/Ecreate.pl
1
 
#!/usr/bin/perl
2
 
 
3
 
$test=shift || die "Usage $0 testname [option]";
4
 
$option=shift;
5
 
 
6
 
open(D, "<data/$test.d") || die "Cannot open(<data/$test.d): $!";
7
 
open(Q, "<data/$test.q") || die "Cannot open(<data/$test.q): $!";
8
 
 
9
 
$N=0;
10
 
 
11
 
print <<__HEADER__;
12
 
DROP TABLE IF EXISTS $test;
13
 
CREATE TABLE $test (
14
 
  id int(10) unsigned NOT NULL,
15
 
  text text NOT NULL,
16
 
  FULLTEXT KEY text (text)
17
 
) TYPE=MyISAM CHARSET=latin1;
18
 
 
19
 
ALTER TABLE $test DISABLE KEYS;
20
 
__HEADER__
21
 
 
22
 
while (<D>) { chomp;
23
 
  s/'/\\'/g; ++$N;
24
 
  print "INSERT $test VALUES ($N, '$_');\n";
25
 
}
26
 
 
27
 
print <<__PREP__;
28
 
ALTER TABLE $test ENABLE KEYS;
29
 
SELECT $N;
30
 
__PREP__
31
 
 
32
 
$N=0;
33
 
 
34
 
while (<Q>) { chomp;
35
 
  s/'/\\'/g; ++$N;
36
 
  $_="MATCH text AGAINST ('$_' $option)";
37
 
  print "SELECT $N, id, $_ FROM $test WHERE $_;\n";
38
 
}
39
 
 
40
 
print <<__FOOTER__;
41
 
DROP TABLE $test;
42
 
__FOOTER__
43
 
 
44