在 Perl 中，如果在函数之间传递（通过返回或输入参数），从 DBI->connect 返回的对象/句柄是否超出范围？

Question

我收到此错误

如果没有包或对象引用，则无法在 ... [在 createSqlTable 行中以我的 $execute 开头] 调用方法“prepare”。

代码类似于以下（sn-ps）：

use othermodule1;
use othermodule2;

my $dbh = othermodule1::connectToDatabase();

if ( defined $databaseHandler )
{
  print "\ndatabaseHandler is defined here after calling connectToDatabase\n";
}

othermodule2::setDatabaseHandler( $databaseHandler );

othermodule2::createSqlTable();

其他模块1：

my $databaseHandler = unset;

sub connectToDatabase
{
  $databaseHandler = DBI->connect('DBI:mysql:db','db','pwd') or die "Could not    connect to database: ";
}

其他模块2：

my $dbhandler = unset;

sub setDatabaseHandler
{
  $dbhandler = @_;
}


sub createSqlTable()
{
  my $query = "CREATE TABLE atable ( a CHAR(30) NULL, b CHAR(30) NULL )"; # etc...

  my $execute = $dbhandler ->prepare($myquery) or die "Couldn't prepare statement: " . $dbhandler->errstr;
  $execute->execute or die "Couldn't execute statement: " . $dbhandler->errstr;
}

Answer 1

您正在混合词法范围和全局范围。 my 将变量声明为词法 - 在其定义范围之外无法看到它。没有它，它是（包）全局的，但如果你use strict，你会收到一个警告。

所以在其他模块1 内的my $databaseHandler 在该模块外看不到。该值可以从函数返回，但该变量名是模块私有的。

Answer 2

  $dbhandler = @_;

是问题所在。您在标量上下文中分配 - 因此 scalar(@_) 的值将分配给 $dbhandler - 在本例中为 1，因为您传递了 1 元素参数列表。

它应该是：($dbhandler) = @_; 使用列表上下文或作为替代成语，$dbhandler = shift;

对比度：

$ perl -e 'sub x { $x = @_ ; print "$x\n"} ; x(33);'
1
$ perl -e 'sub x { ($x) = @_ ; print "$x\n"} ; x(33);'
33

---

第二个不相关的问题是您错误地命名了变量。您在主脚本中有$dbh，但在分配它之后您继续使用$databaseHandler。

if ( defined $databaseHandler )  # BAD
if ( defined $dbh )              # GOOD

---

上述错误（使用$databaseHandler而不是$dbh）不会出现/如果您的模块与上面的主脚本定义在同一个文件中，因为第一个模块的my $databaseHandler声明将该变量放在文件其余部分的范围（包括主脚本）。但它会STOP工作，如果您的模块在自己的文件中（下面的第二个示例）

$ cat /tmp/p1.pm
package p1;
my $v = undef;
sub x {
    $v = 3;
}
1;
$ cat /tmp/x1.pl
use p1;
my $c = p1::x();
my $v_print =  defined $v ? $v : "_UNDEF_";
print "v=$v_print\nc=$c\n";

$ perl -I /tmp /tmp/x1.pl
v=_UNDEF_
c=3

###############################################

$ cat /tmp/x2.pl
package p1;
my $v = undef;
sub x {
    $v = 3;
}
1; # END package p1
package main;
my $c = p1::x();
my $v_print =  defined $v ? $v : "_UNDEF_";
print "v=$v_print\nc=$c\n";

$ perl /tmp/x2.pl
v=3
c=3