I have a couple of little apps written with Perl/Tk and SQLite. Since I didn't want my apps opening each others databases I added a table (called global) with a column "application" and then I test for that having the correct value. Which worked well enough except if the table "global" didn't exist or the file selected for opening wasn't an SQLite database in which case I got error messages- not unexpected but I wanted my app to handle the situation more gracefully. I hacked around with it and came up with the below which behaves but seems a bit kludgy... is there a better way? 

sub check_database_app {
  my $check_for = $_[0] || die "app name not passed!\n";
  local $SIG{'__WARN__'} = sub { my $err = "eat the error $_[0]"; };
  my $sth = $DBH->prepare("SELECT application FROM global")
                 or die "Couldn't prepare statement: " . $DBH->errstr;
  $sth->execute() or do {
    $sth->errstr() =~ /no such table/i and return 0;
    die "Unknown error: " . $sth->errstr();
    return 0;
  };

  my $app = ($sth->fetchrow_array())[0];
  $app eq $check_for ? return 1 : return 0;
}

[download]
}

--
Do not seek to follow in the footsteps of the wise. Seek what they sought. -Basho

In reply to SQLite test database file by greenFox

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.