Andrew Gaffney <[EMAIL PROTECTED]> wrote:
:
: It looks like not all of the fields have something in
: them. Perl is taking blanks for undefined for some
: reason.
:
: > : $tabledesc = {};
: > : $sth = $dbh->prepare("DESCRIBE $_");
: > : $sth->execute;
: > : while($ref = $sth->fetchrow_hashref) {
Try adding this:
foreach my $value ( values %$ref ) {
$value = '' unless defined $value;
}
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
