This works for me: 

use DBI;

my $dbh = DBI->connect("dbi:SQLite:dbname=count.db","","");

my $sth1 = $dbh->prepare('select id from threads');
my $sth2 = $dbh->prepare('select count(*) from replies where thid = ?'
+);

$sth1->execute;

for my $thid ( @{$sth1->fetchall_arrayref} )
{
    print "Thread: ", $thid->[0], "...\n";
    $sth2->execute($thid->[0]);
    print "Replies for thread ", $thid->[0], ": ", $sth2->fetchrow_arr
+ay, "\n";
}

$sth1->finish;
$sth2->finish;
$dbh->disconnect;

__END__

SQL Schema:
sqlite> create table threads ( id integer primary key, title varchar(2
+56) );
sqlite> create table replies ( id integer primary key, thid integer, t
+itle varchar(256) );
sqlite> insert into replies values (1, 1, 're: test1' );
sqlite> insert into replies values (2, 1, 're: re: test1' );
sqlite> insert into replies values (3, 2, 're: test2' );
sqlite> insert into threads values (1, 'test1');
sqlite> insert into threads values (2, 'test2');

Execution:
$ perl test_count.pl
Thread: 1...
Replies for thread 1: 2
Thread: 2...
Replies for thread 2: 1
$

[download]

Maybe your setup is different, but you should be able to translate appropriately...

Best regards...

--
our $Perl6 is Fantastic;

In reply to Re^3: retrieving the reply count of a thread using regular ol' DBI and CGI::Application by Excalibor
in thread retrieving the reply count of a thread using regular ol' DBI and CGI::Application by stonecolddevin

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.