perl - 排除 perl 子例程和 dbi 错误

Question

继续unable to connect error调用我的第二个子程序。

我正在使用 2 个子例程，其中主要检查 sub 1 的结果，如果设置了条件，则运行 sub 2。我可以看到启动 sub 2 的值是正确的（进行打印）

两个潜艇都非常相似。我不确定这在哪里失败。

#subs

    sub get_flg
    {
      undef $/;
      open (my $FH, "< l.sql") or die "error can't open this file $!";
      my $sth= $dbh->prepare(<$FH>) ||
          die ("Cannot connect to the database: ".$DBI::errstr."\n");
      $sth->execute;
      close $FH;
      my $row = $sth->fetchrow_hashref;
      $sth->finish;
      return $row->{A};
}

sub get_msg
{
  undef $/;
  open (my $FH, "< 2.sql") or die "error can't open this file $!";
  my $sth= $dbh->prepare(<$FH>) ||
      die ("Cannot connect to the database: ".$DBI::errstr."\n");
  $sth->execute;
  close $FH;
  my $row = $sth->fetchrow_hashref;
  $sth->finish;
  return @$row{'B','C'}; 
}


#MAIN:

my $dbh = DBI->connect($cf{dsn},$cf{user},$cf{pw},
      {AutoCommit => 0, RaiseError => 0, PrintError => 0 }) || die ("Cannot connect to the database: ".$DBI::errstr."\n");
my $val = get_flg();
print $val;
$dbh->disconnect();

if ($val == 0 ) {
    print "$val\n"; 
    } elsif
      ($val == 1) {
    print "My val is $val\n";
    my ($val2,$val3) = get_msg();
    print "$val2:$val3\n";    
    exit;
};
$dbh->disconnect;

Answer 1

在调用第一个子例程后，您将与数据库断开连接。

my $val = get_flg();
print $val;
$dbh->disconnect();

删除$dbh->disconnect，你应该没问题。