mirror of
https://git.postgresql.org/git/postgresql.git
synced 2024-08-31 12:37:24 +02:00
51 lines
1.0 KiB
Perl
Executable File
51 lines
1.0 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
|
|
my $NUM = 20000;
|
|
print "drop table boxtmp;\n";
|
|
print "drop table boxtmp2;\n";
|
|
|
|
print "create table boxtmp (b box);\n";
|
|
print "create table boxtmp2 (b box);\n";
|
|
|
|
srand(1);
|
|
open(DAT,">bbb.dat") || die;
|
|
foreach ( 1..$NUM ) {
|
|
#print DAT '(',int( 500+500*rand() ),',',int( 500+500*rand() ),',',int( 500*rand() ),',',int( 500*rand() ),")\n";
|
|
my ( $x1,$y1, $x2,$y2 ) = (
|
|
10000*rand(),
|
|
10000*rand(),
|
|
10000*rand(),
|
|
10000*rand()
|
|
);
|
|
print DAT '(',
|
|
max($x1,$x2),',',
|
|
max($y1,$y2),',',
|
|
min($x1,$x2),',',
|
|
min($y1,$y2),")\n";
|
|
}
|
|
close DAT;
|
|
|
|
print "copy boxtmp from stdin;\n";
|
|
open(DAT,"bbb.dat") || die;
|
|
while(<DAT>) { print; }
|
|
close DAT;
|
|
print "\\.\n";
|
|
|
|
print "copy boxtmp2 from stdin;\n";
|
|
open(DAT,"bbb.dat") || die;
|
|
while(<DAT>) { print; }
|
|
close DAT;
|
|
print "\\.\n";
|
|
|
|
print "create index bix on boxtmp using gist (b gist_box_ops);\n";
|
|
print "create index bix2 on boxtmp2 using rtree (b box_ops);\n";
|
|
|
|
|
|
sub min {
|
|
return ( $_[0] < $_[1] ) ? $_[0] : $_[1];
|
|
}
|
|
sub max {
|
|
return ( $_[0] > $_[1] ) ? $_[0] : $_[1];
|
|
}
|