Use of uninitialized value - Problem (gelöst) (Allgemeines zu Perl)

[thread]17345[/thread]

Use of uninitialized value - Problem [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+6 replies
Gast iche

2012-04-20 16:13
Im Logfile finde ich massenhaft dieser Meldungen: "Use of uninitialized value $connectionerror in numeric ne (!=) at ... "

Die Sub "dbconnect" wird aus einem anderen Skript aufgerufen, die Datei, wo "dbconnect" codiert ist, ist ein Package, welches mit "use" eingebunden wird.

Der Programmcode in dem Package sieht so aus:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9

my $connectionerror; sub dbconnect { my $db = DBI -> connect(...) || &connectionerror; if ($db && $connectionerror != 1) {...} } sub connectionerror { $connectionerror = 1; }
Ich sehe jetzt nicht, wo mein Fehler liegt. Warum kennt das Programm die Variable "$connectionerror" nicht?

Danke :)
Last edited: 2012-04-20 16:23:06 +0200 (CEST)
- GwenDragon
  
  2012-04-20 16:25
  
  User since
  2005-01-17
  14754 Artikel
  Admin1
  
  Es kennt sehr wohl die Variable, aber die hat keinen numerischen Inhalt! Wahrscheinlich undef drin.
  Setze $connectionerror doch gleich bei der Definition (bei dir zeile 1) auf 0, dann sollte es passen.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +4 replies
- Linuxer
  
  2012-04-20 16:27
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Das Programm kennt die Variable schon, aber in der Variable steckt kein definierter Wert.
  
  Hast Du schon mal versucht, die Variable mit einer Null 0 vorzudefinieren?
  
  Du füllst die Variable nur in der Subroutine mit einem Wert. Wenn die Subroutine aber nicht aufgerufen wird, bleibt die Variable eben uninitialisiert und damit undefiniert.
  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!
  - +3 replies
  - Gast iche
    
    2012-04-20 16:47
    
    Ihr seid die Besten!
    Wohin kann ich spenden, damit ihr euch ein Eis kaufen könnt? :)
    
    Schönes Wochenende wünsch ich!
    Last edited: 2012-04-20 16:51:11 +0200 (CEST)
    - +2 replies
    - GwenDragon
      
      2012-04-20 17:44
      
      User since
      2005-01-17
      14754 Artikel
      Admin1
      
      schreibe mal eine Mail an pq (unsere Betreiberin des Forums) mit Mail tinita at perl-community.de die nimmt gern Spenden an. ;)
      Last edited: 2012-04-20 17:51:30 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - pq
        
        2012-04-20 17:50
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        im moment sind wir aber gut versorgt =)
        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

View all threads created 2012-04-20 16:13.