Skip to content

Commit

Permalink
just a helper program.
Browse files Browse the repository at this point in the history
  • Loading branch information
gugod committed Feb 20, 2016
1 parent 2d44efb commit 77a9995
Showing 1 changed file with 16 additions and 0 deletions.
16 changes: 16 additions & 0 deletions unqlite-dump
@@ -0,0 +1,16 @@
#!/usr/bin/env perl
use v5.18;use strict;use warnings;

use UnQLite;

my $dbfile = $ARGV[0];

die "db file required" unless -f $dbfile;


my $db = UnQLite->open($dbfile, UnQLite::UNQLITE_OPEN_READONLY);

my $cursor = $db->cursor_init();
for ($cursor->first_entry; $cursor->valid_entry; $cursor->next_entry) {
say $cursor->key . "\n" . $cursor->data . "\n";
}

0 comments on commit 77a9995

Please sign in to comment.