Test script for retrieving data from mysql (actually a query from bugzilla)

test-mysql.pl (text/plain), 677 bytes, created by Haroon Rafique on 2005-10-24 12:35:14 UTC

#!/usr/bin/perl -Tw

use strict;
use DBI;
use DBD::mysql;

my $dbh;

eval {
    $dbh = DBI->connect(
        'dbi:mysql:database=bugs', 'bugs', 'nothing',
        {
            RaiseError  => 1,
            PrintError  => 0,
            AutoCommit  => 0,
        });
};
        # do not proceed any further if connection to database is
        # unsuccessful
if( $@ ) {
    die "Database connection failure: $@";
        exit;
}

my( $data, $version );
eval {
    ( $data, $version ) = $dbh->selectrow_array("
        SELECT schema_data, version FROM bz_schema
        ");
};
if( $@ ) {
    $dbh->disconnect;
    die $@;
}
$dbh->disconnect;

print 'Version: ', $version, "\n";