How many lines deleted?

From: Gavin Henry (ghenry_at_suretecsystems.com)
Date: 03/27/05

  • Next message: David N Murray: "Re: How many lines deleted?" 
    To: dbi-users@perl.org
Date: Sun, 27 Mar 2005 16:56:53 +0000

    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/
  • Next message: David N Murray: "Re: How many lines deleted?"