DBI: Can't call method "prepare" on an undefined value (gelöst) (Datenbanken und Verzeichnisdienste)

[thread]16472[/thread]

DBI: Can't call method "prepare" on an undefined value [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+6 replies
Gast schwaba

2011-06-29 12:51
Hallo

Ich habe eine Funktion die auf eine DB zugreift. Nun kommt immer ein Error "Can't call method "prepare" on an undefined value" und verweisst auf die Zeile mit dem SQL Command (zweitletzte).
Code (perl): (dl )

1 2 3 4 5 6 7

my $dbh = DBI->connect($dbc,$user,$password) or print "ERROR"; if (undef $dbh) { print "Konnte nicht DB verbinden: $DBI::errstr\n"; return; } my $sth = $dbh->prepare("TRUNCATE TABLE `kunden`"); $sth->execute();
Ich prüfe ja aber, ob $dbh undef ist oder nicht... Bin für jeden Tip dankbar.
Last edited: 2011-06-29 13:00:37 +0200 (CEST)
- +2 replies
- Linuxer
  
  2011-06-29 13:02
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Hi, Du prüfst nicht, Du leerst $dhb.
  
  Schau mal in die perldoc -f undef
  
  Geprüft wird mit defined; siehe perldoc -f defined
  
  Code (perl): (dl )
  
  1 2 3
  
  if ( !defined $dbh ) { # nicht definiert }
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - Gast schwaba
    
    2011-06-29 13:45
    
    2011-06-29T11:02:34 Linuxer
    Hi, Du prüfst nicht, Du leerst $dhb.
    
    oh ok... das erklärt natürlich einiges. Danke nun läufts :-)
    Last edited: 2011-06-29 14:43:05 +0200 (CEST)
- pq
  
  2011-06-29 13:05
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  nun ja, in diesem fall sagst du perl mit dem statement:
  if (undef $dbh) {
  setze $dbh auf undef und frage das ergebnis ab.
  
  jetzt ist $dbh leider undef, somit das vorherige connect komplett sinnlos.
  
  und "Can't call method ... on undefined value" heisst nun mal, dass perl keine methode auf einem undefinierten wert aufrufen kann.
  
  du prüfst nicht auf undef. du setzt $dbh selbst auf undef.
  
  auf undef prüfen tust du so:
  if (not defined $dbh) {
  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
- +2 replies
- pktm
  
  2011-06-29 13:52
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  In Zeile 2 setzt du $dbh auf undef.
  Du meintest wahrscheinlich defined $dbh.
  
  Allerdings ist das dann doppelt gemoppelt, weil du in Zeile 1 ja schon den Rückgabewert prüfst.
  
  So müsste es gehen (ungetestet):
  
  Code: (dl )
  
  1 2 3 4 5 6 7
  
  my $dbh = DBI->connect($dbc,$user,$password); unless (defined $dbh) { print "Konnte nicht DB verbinden: " . $DBI->errstr() . "\n"; return; } my $sth = $dbh->prepare("TRUNCATE TABLE `kunden`") or die('fehlermeldung wg.prepare: ' . DBI->errstr()); $sth->execute();
  
  http://www.intergastro-service.de (mein erstes CMS :) )
  - Gast schwaba
    
    2011-06-29 13:53
    
    super, ja das wars. Danke euch :)
    Last edited: 2011-06-29 14:43:18 +0200 (CEST)

View all threads created 2011-06-29 12:51.