sqlite-schema-pretty.pl

use 5.010;
use strict;
use SQL::Beautify;

my $sql  = do { local $/; <> };

$_ = do {
    my $p = SQL::Beautify->new;
    $p->query( $sql );
    $p->beautify;
};

s{ \(\s* (\d+) \s*\) (?:\s*(\w))? }
 { "($1)" . ( $2 ? " $2" : "") }gsex;

s{ (\)) \n ([;,]) }{ $1 . $2 }gex;

say;