1 files changed, 39 insertions, 0 deletions
diff --git a/plain.pl b/plain.pl
new file mode 100755
index 0000000..4bc30f5
--- /dev/null
+++ b/plain.pl
@@ -0,0 +1,39 @@
+#!/usr/bin/perl
+
+# Usage: ./plain.pl db-plain db-gzip
+
+use strict;
+use warnings;
+use PerlIO::gzip;
+use v5.10;
+
+sub lookup_str {
+    my($F, $q) = @_;
+    while(<$F>) {
+        chomp;
+        return 1 if $q eq $_;
+        return 0 if $q lt $_;
+    }
+    return 0;
+}
+
+sub lookup_plain {
+    my($q, $f) = @_;
+    open my $F, '<', $f or die $!;
+    lookup_str $F, $q
+}
+
+sub lookup_gzip {
+    my($q, $f) = @_;
+    open my $F, '<:gzip', $f or die $!;
+    lookup_str $F, $q
+}
+
+my($plain, $gzip) = @ARGV;
+
+use Benchmark 'timethis', ':hireswallclock';
+sub rstr { state $s=['a'..'z','A'..'Z','0'..'9','!','@','#']; join '', map $s->[rand @$s], 1..5 }
+srand 0;
+timethis 2, sub { lookup_plain rstr(), $plain }, 'plain';
+srand 0;
+timethis 2, sub { lookup_gzip rstr(), $gzip }, 'gzip';