Re^4: Perl script to check database works or does it?

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};
[download]

Thanks all

Comment on Re^4: Perl script to check database works or does it? Download Code

Replies are listed 'Best First'.
Re^5: Perl script to check database works or does it? by choroba (Cardinal) on Jan 05, 2016 at 13:22 UTC
A hash key can never be undefined. Loop over the values only: `defined or $_ = '' for values %$ref;` [download] Or, in newer Perls, `$_ //= '' for values %$ref;` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]