我正在运行查询’describe table’,它为’default’列返回’null’的值.但是,当我尝试将数据库中的值打印到
HTML表时,它不会打印’null’.它总是空白的.
这就是我存储数据库中数据的方式：
@nulls = ();
while (($null) = $sth1->fetchrow_array)
{
push (@nulls,$null);
}
解决方法
正如Chris J所说,空值作为未定义的值返回.
如果启用了警告,则在打印值时会收到“打印时未定义的值”警告.使用strict和warnings pragmata可以节省大量的调试时间.诊断实用程序为标准警告和致命错误添加了额外的解释性文本.
它们很容易捕获并替换来自数据库的NULL值：
use strict;
use warnings;
my @nulls = ();
while ((my $null) = $sth1->fetchrow_array)
{
# before perl 5.10: use the ternary operator.
push @nulls,defined $null ? $null : 'NULL';
# perl 5.10 adds the defined-or operator: //
push @nulls,$null // 'NULL';
}
或者您可以像上面显示的那样构建@nulls数组,然后在显示时更改空值.
my @pre_5_10 = map { defined $_ ? $_ : 'NULL' } @nulls;
my @perl_5_10 = map { $_ // 'NULL' } @nulls;