$ perl -Mblib -S dbish dbi:SQLite:testgonernow
DBI::Shell 11.95 using DBI 1.628

WARNING: The DBI::Shell interface and functionality are
=======  very likely to change in subsequent versions!


Connecting to 'dbi:SQLite:testgonernow' as ''...
@dbi:SQLite:testgonernow> /table_info
TABLE_CAT,TABLE_SCHEM,TABLE_NAME,TABLE_TYPE,REMARKS,sqlite_sql
undef,'main','sqlite_master','SYSTEM TABLE',undef,undef
undef,'temp','sqlite_temp_master','SYSTEM TABLE',undef,undef
[2 rows of 6 fields returned]
@dbi:SQLite:testgonernow> CREATE VIRTUAL TABLE mytable USING fts4 (tokenize=unicode61);
[0E0 rows affected]
@dbi:SQLite:testgonernow> /table_info
TABLE_CAT,TABLE_SCHEM,TABLE_NAME,TABLE_TYPE,REMARKS,sqlite_sql
undef,'main','mytable_segdir','INDEX',undef,undef
undef,'main','sqlite_master','SYSTEM TABLE',undef,undef
undef,'temp','sqlite_temp_master','SYSTEM TABLE',undef,undef
undef,'main','mytable','TABLE',undef,'CREATE VIRTUAL TABLE mytable USING fts4 (tokenize=unicode61)'
undef,'main','mytable_content','TABLE',undef,'CREATE TABLE \'mytable_content\'(docid INTEGER PRIMARY KEY, \'c0content\')
'
undef,'main','mytable_docsize','TABLE',undef,'CREATE TABLE \'mytable_docsize\'(docid INTEGER PRIMARY KEY, size BLOB)'
undef,'main','mytable_segdir','TABLE',undef,'CREATE TABLE \'mytable_segdir\'(level INTEGER,idx INTEGER,start_block INTEG
ER,leaves_end_block INTEGER,end_block INTEGER,root BLOB,PRIMARY KEY(level, idx))'
undef,'main','mytable_segments','TABLE',undef,'CREATE TABLE \'mytable_segments\'(blockid INTEGER PRIMARY KEY, block BLOB
)'
undef,'main','mytable_stat','TABLE',undef,'CREATE TABLE \'mytable_stat\'(id INTEGER PRIMARY KEY, value BLOB)'
[9 rows of 6 fields returned]
@dbi:SQLite:testgonernow> /exit
Disconnecting from dbi:SQLite:testgonernow.

$ rm testgonernow