Perl/DBI selectrow_array 范围混淆

Question

所以，我有一个文件列表，我正在检查数据库表以查看是否存在条目并提取 id 和目标文件名。如果不存在，则插入一个条目并重新拉出该条目（注意 id 是自动递增的，所以无论我是否必须进行第二次查询。）

问题是当我在插入后重新拉出查询时，它进入的变量是词法的（我认为这是正确的措辞），一旦我离开 if (!defined) 块的范围，它就会失去它价值。

#lookup file db entry
my ($fileId, $destFilename) = $dbh->selectrow_array("select fileId, destFilename from myTable where sourceFilename = '$file'");
if (! defined $fileId) {
    # calculate out what the destination filename should be here..
    # add missing entry into table
    ($fileId, $destFilename) = $dbh->selectrow_array("select fileId, destFilename from myTable where sourceFilename = '$file'");
    print Dumper $destFilename;
}
print Dumper $destFilename;

这将导致：

$VAR1 = "correctfilenamehere"
$VAR1 = undef

我尝试在通过 selectrow_array 调用分配变量之前定义变量。对于这些变量，我已经尝试将上面的变量从 my 更改为 our。我对它为什么这样做感到困惑。

还要注意，这段代码在另一个块中，所以这些变量已经是那个范围的词法。我原以为它们会在子块中可用，但据我所知，它并没有真正以这种方式工作。

Answer 1

您发布的代码没有表现出您描述的行为。

$ perl -e'
   use strict;
   use warnings;

   use Data::Dumper qw( Dumper );

   sub f { $_[0] ? (4, "abc") : () }

   my ($fileId, $destFilename) = f(0);
   if (!defined $fileId) {
       ($fileId, $destFilename) = f(1);
       print Dumper $destFilename;
   }

   print Dumper $destFilename;
'
$VAR1 = 'abc';
$VAR1 = 'abc';

如果您引入一个具有相同名称的新变量，您可以获得所描述的行为。

$ perl -e'
   use strict;
   use warnings;

   use Data::Dumper qw( Dumper );

   sub f { $_[0] ? (4, "abc") : () }

   my ($fileId, $destFilename) = f(0);
   if (!defined $fileId) {
       my ($fileId, $destFilename) = f(1);
       print Dumper $destFilename;
   }

   print Dumper $destFilename;
'
$VAR1 = 'abc';
$VAR1 = undef;

Answer 2

发现了问题，一些代码正在创建一个同名的词法变量，而我没有注意到，因此父 $destFilename 被替换为本地变体。