Perl 在db_connect.pl第146行的联接或字符串中使用未初始化值$no_issue[0]

我试图从数组中读取一些数据并检查2列，如果它满足我的条件，我需要将整行加载到另一个数组中，而这样做会产生如下错误

在处的联接或字符串中使用未初始化值$no_issue[0] db_connect.pl第146行

我在下面给出了我的代码：

while (my @row = $processed_sql->fetchrow_array)
        {
            #print "sq_no: $row[0] hie_key:$row[1] today: $row[2] table_name: $row[3] batch_id: $row[4] table_count: $row[5] pre_count: $row[6]\n";
        ############################################################
        my $table_name = $row[3];
        my $batch_id = $row[4];
        my $table_count = $row[5];
        my $pre_count=$row[6];
        our @no_issue;
        #my $nvalue;

        #print "$table_name,$table_count\n";

    if($table_count >= $pre_count)

    {

        push (@no_issue,$_);

        **print "value is greater @no_issue \n";**
    }
    else
    {
        print "jkdlkjfa\n";
    }

    }

问题就在这里

push (@no_issue, $_);

print "value is greater @no_issue \n";

您正在将

$\u

按到数组

@no\u issue

上，但是前面没有设置

$\u

的代码，因此您正在按

undef

然后尝试打印它，导致使用未初始化值错误

---

我无法告诉您在该数组中需要什么值，但它可能是

@row

？

的元素之一。请缩进您的整个代码，我认为这是一个警告而不是错误。