The complete work-in-progress SQLite recover virtual table.

third_party/sqlite/src/interior.pl

+#!/usr/bin/perl -w
+
+use strict;
+use Getopt::Long;
+
+my $table = "interior";
+GetOptions("table=s" => \$table);
+
+print "-- Create a tree with interior nodes.\n";
+print "CREATE TABLE $table (\n";
+print "  file TEXT,\n";
+print "  lineno INT,\n";
+print "  line TEXT\n";
+print ");\n";
+
+foreach my $file (@ARGV) {
+  print "SELECT 'Loading from $file';\n";
+  print "BEGIN;\n";
+  open(F, $file) || die("Open $file: $!");
+  while (<F>) {
+    chomp;
+    s/'/''/g;
+    print "INSERT INTO $table VALUES ('$file', $., '$_');\n";
+  }
+  close(F) || die("Close $file: $!");
+  print "COMMIT;\n";
+}