如何避免使用 Perl 从 csv 向 mysql 插入不为空的字段？

Question

我正在使用 Perl 将 csv 文件插入 MySQL。 我已经成功地将一些数据插入到 MySQL 中。 但是csv文件中有些字段为空，代码无法继续运行。

if 语句检查$rttjitter 是否不为空，否则打印该行号，然后执行的正确方法是什么？

即2 个条件：$rtt 不等于 0，$rttjitter 不为空。

my $empty =  q{};

my @nulls = ();

if ($rtt !=0 && $rttjitter ne undef)

^ 这些都不能很好地工作。

Answer 1

您可以使用内置的defined 函数来显式检查是否定义了变量，例如

if( defined( $rttjitter ) and $rttjitter ) { ...

将检查它是否已定义并且具有非 0 或空字符串的值。

您似乎应该再看看您在 CSV 中的阅读方式（您正在使用像 Text::CSV 这样的模块，对吗？），和/或您现在的情况进行数据库插入，通常与这种事情一样，undef 值将作为 NULL 干净地插​​入到数据库中，并且不应该对您的代码造成任何问题，除非您正在做一些奇怪的事情。

Answer 2

if (defined($rttjitter) && defined($rtt) && $rtt != 0)
{
    ... # $rttjitter is not null (undef) and $rtt is not null (undef) and nonzero
}
else
{
    ... # at least one column fails the test
}