Warnung "Use of uninitialized value" in Sub (mod_perl und Apache)

[thread]15505[/thread]

Warnung "Use of uninitialized value" in Sub

Leser: 20

Articles: hide open all | hide show old branches

+7 replies
jan10001

2010-10-04 07:46
User since
2003-08-14
962 Artikel
BenutzerIn
Im Haupteil des Programmes definierte Variablen werden problemlos verarbeit, aber für die Subroutinen gibt es aber leider immer wieder diese Warnungen.
(Das Script verarbeitet die Varaiablen aber trotzdem.)
Code: (dl )

Use of uninitialized value $ModPerl::ROOT::ModPerl::Registry:.....
Was übersehe ich?
- +5 replies
- bianca
  
  2010-10-04 08:24
  
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  
  Für welche Zeile kommt denn die Fehlermeldung und wie sieht der Code an der Stelle aus?
  10 print "Hallo"
  20 goto 10
  - +4 replies
  - jan10001
    
    2010-10-04 08:43
    User since
    2003-08-14
    962 Artikel
    BenutzerIn
    
    Deklarieren:
    
    Code: (dl )
    
    use vars qw/$menue $submit/;
    
    Werte zuweisen:
    
    Code: (dl )
    
    1 2 3 4
    
    $menue = $daten->param("menue"); $submit = $daten->param("submit"); utf8::decode($submit); utf8::decode($menue);
    
    und in den Subroutinen verarbeite ich sie so:
    
    Code: (dl )
    
    1 2 3
    
    if ($menue eq "delete") { $button = "löschen"; }
    
    Die Warnungen beziehen sich immer auf die Zeilen wo ich die Variablen verarbeite bez. auswerte.
    - +3 replies
    - Gast wer
      
      2010-10-04 08:49
      
      Code (perl): (dl )
      
      1 2
      
      $menue = $daten->param("menue"); $submit = $daten->param("submit");
      
      Wenn das "param" von CGI oder ähnlichem kommt so muss es nicht zwangsläufig einen Wert zurück geben es kann auch "undef" zurück liefern.
      
      Am besten du macht etwas der Art:
      
      Code (perl): (dl )
      
      1 2 3 4
      
      $menue = $daten->param("menue"); $menue='' unless(defined($menue)); # Defaultwert setzen wenn nicht definiert $submit = $daten->param("submit"); $submit='' unless(defined($submit)); # Defaultwert setzen wenn nicht definiert
      
      Last edited: 2010-10-04 08:50:47 +0200 (CEST)
      - +2 replies
      - renee
        
        2010-10-04 08:52
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Guest wer
        Am besten du macht etwas der Art:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        $menue = $daten->param("menue"); $menue='' unless(defined($menue)); # Defaultwert setzen wenn nicht definiert $submit = $daten->param("submit"); $submit='' unless(defined($submit)); # Defaultwert setzen wenn nicht definiert
        
        Und wenn Perl > 5.10 zum Einsatz kommt, geht auch
        
        Code (perl): (dl )
        
        1 2
        
        $menue = $daten->param("menue") // ''; $submit = $daten->param("submit") // '';
        
        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/
        
        jan10001
        
        2010-10-04 09:05
        
        User since
        2003-08-14
        962 Artikel
        BenutzerIn
        
        Ah, danke das war die Lösung. ^_^
- renee
  
  2010-10-04 08:26
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Kannst Du etwas mehr Informationen posten? Wie sieht das Programm aus? Wie sieht Deine Umgebung aus?
  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/

View all threads created 2010-10-04 07:46.