unblessed reference (gelöst) (Allgemeines zu Perl)

[thread]16395[/thread]

unblessed reference [gelöst]

Tags: perl5 reference Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+5 replies
silver345

2011-06-07 08:44
User since
2011-06-07
16 Artikel
BenutzerIn
Ich muß für meinen Job ein Script schreiben, um XML Files in eine MySQL-Datenbank zu übertragen. Dazu nutze ich unter anderem prepared statements.
Code: (dl )

1 2

my $SqlTools = "SELECT `value` FROM `Tools` WHERE `property`=?"; my $SqlSthTools = $dbh->prepare($SqlTools);
Wenn diese Statements (die SELECT-Anweisungen, also record sets, enthalten), nicht am Ende des Programms geschlossen werden, beschwert sich Perl. Zu recht. Also habe ich eine Routine geschrieben, die diese RecordSets schließt.
Code: (dl )

1 2 3 4 5

sub closeDatabase { $SqlSthTools->finish(); # usw. $dbh->disconnect; }
Da ich aber noch bei der Entwicklung bin und ich die Sache schrittweise aufbaue, steigt die Zahl der zu schließenden RS und Murphy ist überall. Deshalb dachte ich in meinem Altersleichtsinn, daß ich diese Variablen per Referenz an ein Array übergebe
Code: (dl )

1 2 3

my @toClose = (); push @toClose, \$SqlSthTools;
und dann in o. g. Routine schließe.
Code: (dl )

1 2 3 4 5 6

sub closeDatabase { foreach my $sth (@toClose) { $sth->finish(); } $dbh->disconnect; }
Das führt aber zur Fehlermeldung:

Can't call method "finish" on unblessed reference at <script_name> line <number>.

Nutze ich hingegen folgendes Szenario:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

my @toClose = (); push @toClose, "SqlSthTools"; sub closeDatabase { foreach my $sth (@toClose) { my $cmd = '$' . $sth . '->finish()'; eval $cmd; } $dbh->disconnect; }
gibt es zumindest keine Fehlermeldung. Jetzt bin ich mir aber nicht wirklich sicher, ob wirklich 1. die RS geschlossen werden und 2. eval nicht als guter Geist funktioniert und die Fehlermeldungen unterdrückt.

Lieber wäre mir jedoch der Aufruf über das Array mit den Variablen-Refenrenzen. Ist wohl auch irgendwie professioneller (wenn ich es denn könnte ;o) ). Kann mir da jemand einen Tipp geben?
Last edited: 2011-06-07 08:51:28 +0200 (CEST)
- renee
  
  2011-06-07 08:59
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Das eval brauchst Du nicht...
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  sub closeDatabase { foreach my $sth (@toClose) { ${$sth}->finish(); } $dbh->disconnect; }
  
  oder Du speicherst nicht die Referenzen auf die Variable... sondern
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  my @toClose = (); push @toClose, $SqlSthTools; sub closeDatabase { foreach my $sth (@toClose) { $sth->finish(); } $dbh->disconnect; }
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
- rosti
  
  2011-06-07 09:29
  User since
  2011-03-19
  3206 Artikel
  BenutzerIn
  Du hast Referenzen in Deinem Array. Beim Durchgehen zum Aufruf der Methode finish() machst Du jedoch keine Dereferenzierung, daher die Fehlermeldung. Dereferenziert erfolgt keine Fehlermeldung:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  foreach my $sth(@statements){ # $sth ist eine Referenz auf eine Referenz $$sth->finish; # beachte die 2 Dollarzeichen, Dereferenzierung }
  
  Btw., Can't call method "finish" on unblessed reference besagt: du hast zwar eine Referenz, jedoch ist die Zugehörigkeit dieser Referenz zu einer Klasse nicht näher bestimmt. perldoc -f bless
  
  --Rosti
  Last edited: 2011-06-07 09:37:24 +0200 (CEST)
- +2 replies
- pq
  
  2011-06-07 10:17
  User since
  2003-08-04
  12208 Artikel
  Admin1
  das hört sich alles ziemlich haarig an.
  sowas habe ich noch nie gebraucht. wenn ich ein $sth in einem block verwende, ist die variable lexikalisch, und sobald der block zu ende ist, wird $sth->finish automatisch aufgerufen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  sub do_this { my ($dbh) = @_; my $sth = $dbh->prepare(...); $sth->execute(...); # fetchrow... # ende des blocks. hier wird $sth ungültig und automatisch finish aufgerufen }
  
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - silver345
    
    2011-06-07 13:38
    
    User since
    2011-06-07
    16 Artikel
    BenutzerIn
    
    Das Problem ist:
    
    Irgendwann gibt es einen Datenbankfehler, der zum Programmende führt. Ich will aber nicht an jeder möglichen Stelle den Code einfügen. Deshalb zentral.
    
    Aber: Herzlichen Dank für die rasend schnelle Antwort. Heute abend kann ich es testen und bin happy ;o)
    
    Tausend Dank

View all threads created 2011-06-07 08:44.