Re^2: Find empty tables - sqlite module

Thanks for clarifying that! The following code works:

my $empty5 = 
$dbh->selectall_arrayref("SELECT count(item) FROM audio");

foreach my $row (@$empty5)
{
    my ($count) = @$row;
    if ( $count > 1 ) {
        print "Processing $count Items\n";
        &processItem;
    }
    else { 
        print "No Items\n";
        &noItems; 
}

    print "$count\n";
}
[download]

I figured that selectall_arrayref might be the key, but it took a little experimentation to hone it to what I needed.

Thanks again for your answer!

Bubnoff

Comment on Re^2: Find empty tables - sqlite module Download Code

Replies are listed 'Best First'.
Re^3: Find empty tables - sqlite module by Herkum (Parson) on Jan 01, 2009 at 02:15 UTC
That seems like overkill for what you are looking for, `my ($counted) = $dbh->selectrow_array("SELECT COUNT(*) FROM audio"); print "No. Rows: $counted\n";` [download]	[reply] [d/l]