SQLite Table Existence?

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Is there a better way of checking to see if a SQLite table exists? This is how I currently check but doesn't seem correct:

    my $dbh = DBI->connect( "dbi:SQLite:$db" ) || warn "Cannot connect
+: $DBI::errstr";

    my $all = $dbh->selectall_arrayref( "SELECT * from table_X" );

    if ( defined $all ) {

    # table exists
    }
    else {
    # table deosn't exist
    }

    $dbh->disconnect;
[download]

Comment on SQLite Table Existence? Download Code

Replies are listed 'Best First'.
Re: SQLite Table Existence? by jau (Hermit) on Sep 17, 2010 at 15:03 UTC
Take a look at DBI's tables() method.	[reply]
Re: SQLite Table Existence? by Anonymous Monk on Sep 17, 2010 at 23:54 UTC
Hi, SQLite has a table called sqlite_master which holds details of all the tables you have created. Try - select * from sqlite_master; to have a look at it. J.C.	[reply]
Re^2: SQLite Table Existence? by Anonymous Monk on Sep 18, 2010 at 00:00 UTC
That worked...great to know! Thanks	[reply]
Re^3: SQLite Table Existence? by Your Mother (Archbishop) on Sep 18, 2010 at 01:29 UTC
It is not, however, what you want to use. Use `tables` or `table_info` from DBI. They will continue to work if you move to Pg or MySQL or whatever DBD engine you like. Every bit of engine dependent code you add is a future impediment to change and further amounts to an interface fork you will have to maintain when you could get it for free.	[reply] [d/l] [select]
Re^3: SQLite Table Existence? by Anonymous Monk on Sep 18, 2010 at 00:11 UTC
http://cpansearch.perl.org/src/ADAMK/DBD-SQLite-1.31/t/35_table_info.t	[reply]