我有一个 Perl 脚本，它读取一个包含我的 SQL 文件的目录。

然后迭代这个数组并删除其中一个并将它们打印出来。

@sqlArray = glob('C:/Users/Geeks/Folder/*.sql');

print Dumper(@sqlArray );

if( $company ne 'Geeks'){
  my $index = 0;
  my $count = scalar @sqlArray ;
  $index++ until $sqlArray [$index] eq 'factura.sql' or $index==$count;
  splice(@sqlArray , $index, 1);
}

print Dumper(@sqlArray );

我收到以下错误，我不知道它是怎么来的以及如何修复它？

Use of uninitialized value within @sqlArray in string eq at /.../software/Queries.pl line 97.

欢迎任何想法，并提前致谢。

回答

@sqlArray = grep { $_ ne 'factura.sql' } @sqlArray
   if $company ne 'Geeks';