mirror of
https://github.com/pgpointcloud/pointcloud.git
synced 2025-12-08 20:36:04 +00:00
19 lines
534 B
Perl
Executable File
19 lines
534 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
# Example usage:
|
|
# ./benchmark.pl raw20h64_1000_p3_uncompressed_main | psql -etXA db1
|
|
|
|
use strict;
|
|
|
|
@ARGV || die "Usage: $0 <tabname> [<tabname> ...]\n";
|
|
|
|
foreach $a (@ARGV) {
|
|
my $tn="${a}";
|
|
print "select count(*) from \"${tn}\";\n";
|
|
print "select pg_size_pretty(pg_total_relation_size('${tn}'));\n";
|
|
# full decompression
|
|
print "explain analyze select PC_FilterEquals(p,'z',PC_PatchMax(p,'z')) from \"${tn}\";\n";
|
|
# header only
|
|
print "explain analyze select PC_PatchAvg(p,'z') from \"${tn}\";\n";
|
|
}
|