How many lines deleted?

Dear all,

I have a simple program to delete spam comments from Wordpress. How do I 
return the number of comments deleted?

Current code:

#!/usr/bin/perl

use warnings;
use strict;
use DBI;

my $db = 'DBI:mysql:changed_for_email:localhost';
my $username = 'changed_for_email';
my $pass = 'changed_for_email';

my $dbh = DBI->connect($db, $username, $pass)
    or die "Couldn't connect to database: " . DBI->errstr;
my $sql = qq{ DELETE FROM wp_comments WHERE comment_approved='0' };

$dbh->do($sql);
$dbh->disconnect();

print "All comments deleted sucessfully.\n";


Thanks.

-- 
Kind Regards,
Gavin Henry.

Open Source. Open Solutions(tm).

http://www.suretecsystems.com/

• How many lines deleted? by Gavin Henry
• Re: How many lines deleted? by David N Murray
• Re: How many lines deleted? by Gavin Henry