Line # Revision Author
1 109 dpavlin #!/usr/bin/perl -w
2
3 # dump sql lite database
4
5 sub sqlite($$) {
6 my ($db,$sql) = @_;
7 open(my $s, qq{sqlite3 $db "$sql" |}) || die "can't open sqlite $db: $!";
8 my $out;
9 while(<$s>) {
10 $out .= $_;
11 }
12 close($s);
13 return $out;
14 }
15
16 my $db = shift @ARGV || die "usage: $0 sqlite3.db\n";
17
18 my $tables = sqlite($db, ".tables");
19 my $dump = sqlite($db, ".dump $tables");
20
21 print $dump;