in reply to Perl script to check database works or does it?

Hi chris,

I don't see $querylist definition (line 65):
# Assigning the sql query referenced in the query hash my $sql = $querylist{$query};

Replies are listed 'Best First'.
Re^2: Perl script to check database works or does it?
by hotchiwawa (Scribe) on Jan 04, 2016 at 20:25 UTC
    Edit; sorry there is a definition :(
    I didn't see the hash 'Oo' => shame on me

      No problem, may be you can redeem yourself in pointing out why I am getting "Use of uninitialized value $ref in join or string at dbmigration.pl line 124. Use of uninitialized value $ref1 in join or string at dbmigration.pl line 148." errors? :0)

        OK, got it. It's because the DB return contains NULL values so the code is basically trying to do a join on an empty string!

        I have added the below just before the join and it has fixed it.

        foreach (%$ref) {$_ = '' unless defined};

        Thanks all