unblessed reference (gelöst) - #149487 (Allgemeines zu Perl)

renee

2011-06-07 08:59

User since
2003-08-04
14371 Artikel
ModeratorIn

Das eval brauchst Du nicht...

Code (perl): (dl )

sub closeDatabase {
  foreach my $sth (@toClose) {
    ${$sth}->finish();
  }
  $dbh->disconnect;
}

oder Du speicherst nicht die Referenzen auf die Variable... sondern

Code (perl): (dl )

my @toClose = ();

push @toClose, $SqlSthTools;

sub closeDatabase {
  foreach my $sth (@toClose) {
    $sth->finish();
  }
  $dbh->disconnect;
}