Bug#1127330: Provide a converter from BerkeleyDB to SQLite

[Marco d'Itri]

Package: animals
Version: 202601041054Z-1
Severity: important
Tags: patch

Here it is.

-- 
ciao,
Marco

#!/usr/bin/perl
# Conversion program written by Marco d'Itri <m...@linux.it>.
# SPDX-License-Identifier: GPL-2.0-or-later
#
# apt install libberkeleydb-perl
# animals_dump | sqlite3 animals.sqlite3

use v5.36;
use BerkeleyDB;

my $db_file = '/var/games/animals/animals.db';

my %animals;
my $db = tie(%animals, 'BerkeleyDB::Btree',
        -Filename       => $db_file,
        -Flags          => DB_RDONLY,
) or die "Cannot open DB $db_file: $BerkeleyDB::Error";
$db->filter_fetch_key  (sub { s/\0$// });
$db->filter_fetch_value(sub { s/\0$// });
$db->filter_store_key  (sub { $_ .= "\0" });
$db->filter_store_value(sub { $_ .= "\0" });

print << 'END';
PRAGMA foreign_keys=OFF;
BEGIN TRANSACTION;
CREATE TABLE animals (key VARCHAR(255) NOT NULL PRIMARY KEY, value VARCHAR(255) 
NOT NULL);
END

foreach my $key (keys %animals) {
        my $value = $animals{$key};
        $value =~ s/'/''/g;
        say qq{INSERT INTO animals VALUES('$key','$value');};
}

print << 'END';
COMMIT;
END

signature.asc
Description: PGP signature