mod_perl2: Warnings deaktivieren (gelöst) (mod_perl und Apache)

[thread]15766[/thread]

mod_perl2: Warnings deaktivieren [gelöst]

Tags: mod_perl Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+14 replies
Knochen

2010-12-23 15:03
User since
2007-03-28
11 Artikel
BenutzerIn
Hallo Zusammen,

ich bin etwas am Verzweifeln. Ich habe einen Windows Server mit ActiveState Perl 5.12, Apache 2.2.16 sowie mod_perl 2.04 am Laufen.

Meine httpd.conf hat folgende Konfiguration (abweichend zum Standard):
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

LoadFile "C:/Programme/MARIS/Perl/bin/perl512.dll" LoadModule perl_module modules/mod_perl.so PerlRequire "C:/Programme/MARIS/WebServer/conf/stdlibs.pl" <IfModule mime_module> # Perl handlers / types <Files ~ "\.(cgi|pl|plx)$"> SetHandler perl-script Options +ExecCGI PerlHandler ModPerl::PerlRun PerlSendHeader On PerlSetupEnv On </Files> </IfModule>
In der stdlips.pl steht:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

use ModPerl::Util (); use Apache2::RequestRec (); use Apache2::RequestIO (); use Apache2::RequestUtil (); use Apache2::ServerRec (); use Apache2::ServerUtil (); use Apache2::Connection (); use Apache2::Log (); use Apache2::Const -compile => ':common'; use APR::Const -compile => ':common'; use APR::Table (); use Apache2::compat (); use ModPerl::PerlRun (); 1;
Nun zu meinem Problem. In all meinen Scripten nutze ich use strict, aber keine warnings. Wenn die Scripte nun auf dem Webserver ausgeführt werden, schreibt mir irgendetwas die error.log des Apache voll mit Perl Warnings (z.B. Use of uninitialized value...). Ich hab allerdings kein Plan was genau dafür verantwortlich ist, ausser dass wenn ich mod_perl "deaktiviere" die Warnings nicht mehr kommen.

Habe es schon mit
Code: (dl )

PerlWarn Off
probiert und habe mit dem
Code: (dl )

LogLevel
des Apache rum gespielt, leider ohne Erfolg! Auch wenn ich in den Scripten überall
Code: (dl )

no warnings 'redefine';
einbaue hat dies keine Auswirkungen! Das Auskommentieren von Apache2::Log() bringt auch nichts!

Hat irgendjemand eine Idee was ich tun könnte, dass die Warnings verschwinden (ausser den Code zu säubern, was bei ca. 500 Scripten etwas problematisch wird)?
- GwenDragon
  
  2010-12-23 16:47
  User since
  2005-01-17
  14783 Artikel
  Admin1
  Hast du denn in deiner httpd.conf
  
  Code: (dl )
  
  PerlWarn Off
  
  global gesetzt und den Server neu gestartet?
  
  Es hat schon seinen Grund, dass bei mod_perl Warnings eingeschaltet werden sollten und nur im Skript an Stellen, wo es wirklich notwendig ist deaktiviert werden.
  
  Du musst wohl deine Skripte überprüfen oder einfach den Logmüll im error_log ignorieren,.
  
  Lies doch mal:
  http://modperlbook.org/html/22-3-7-Use-of-uninitia...
  http://modperlbook.org/html/6-1-Before-You-Start-t...
  http://modperlbook.org/html/21-1-1-The-Importance-...
  
  http://modperlbook.org/html/Chapter-21-Error-Handl...
  http://modperlbook.org/html/4-4-7-Debugging.html
  
  Allerdings kann es Module geben, die intern/lokal Warnungen kurzfristig wieder über $^W einschalten. Auch das kann Warnungen werfen.
  Last edited: 2010-12-23 18:44:34 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- bianca
  
  2010-12-24 14:09
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Und das STDERR umleiten?
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - GwenDragon
    
    2010-12-25 18:28
    
    User since
    2005-01-17
    14783 Artikel
    Admin1
    
    Das löst vielleicht das Zumüllen des Logs aber nicht die Programmierfehler in den Skripten.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - bianca
      
      2010-12-25 18:52
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2010-12-25T17:28:05 GwenDragon
      Das löst vielleicht das Zumüllen des Logs aber nicht die Programmierfehler in den Skripten.
      
      Das weiß Knochen ja.
      Er fragte ja extra nach Alternativen zum Code säubern.
      10 print "Hallo"
      20 goto 10
- +9 replies
- GwenDragon
  
  2010-12-25 19:19
  
  User since
  2005-01-17
  14783 Artikel
  Admin1
  
  Woher weißt du eigentlich, welche Warnungen unnötig sind? Wie willst du das unterscheiden? Niemand programmiert 100% fehlerfrei und kein Programm läuft 100% fehlerfrei.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +8 replies
  - Knochen
    
    2010-12-30 12:32
    User since
    2007-03-28
    11 Artikel
    BenutzerIn
    
    Hallo,
    
    erstmal vielen Dank für eure Antworten! Ich konnte zwar keine Lösung zu meinem eigentlichen Problem finden, hab mich aber jetzt daran gemacht die Scripte umzuschrieben, da ich gesehen habe, dass die Fehler nur in bestimmten Scripten auftauchen.
    
    Vllt. noch eine kleine Frage bzgl. eines Warnings:
    
    Ich habe folgenden Code:
    
    Code: (dl )
    
    1 2 3
    
    my $SQL = "SELECT * FROM TABELLE"; my @result=&funktion($SQL); print "Ergebnis: ".$result[0][0];
    
    Der Rückgabewert von &funktion($SQL) ist immer ein zweidimensionales Array! Wenn in dem Beispiel kein Ergebnis zurückgeliefert wird, so gibt Perl mit ein Warning aus, dass $result[0][0] nicht initialisiert ist, was auch klar ist, da ich es vorher nicht initalisiert habe. Meine Frage ist nun:
    Gibt es eine Möglichkeit ein zweidimensionales Array, dessen Größe unbekannt ist initial zu initialisieren, dass es keine solche Fehlermeldung gibt? Wenn nein, wie kann ich Warnung umgehen ohne vorher zu überprüfen, ob der Inhalt eines Array-Elemntes leer ist?
    
    Viele Grüße,
    Jochen
    - GwenDragon
      
      2010-12-30 14:23
      
      User since
      2005-01-17
      14783 Artikel
      Admin1
      
      $result[0][0] erzeugt ja automatisch ein Array (Autovivication), nur ist das mit dem Wert undef gefüllt.
      
      Siehst du als Beispiel:
      U:\>perl -MData::Dumper -e"$t[5][2]; print Dumper \@t" $VAR1 = [ undef, undef, undef, undef, undef, [] ]; U:\>
      
      Warum überprüfst du denn keine Rückgabewerte beim Aufruf?
      Ansonsten musst du eben bei der Ausgabe prüfen, ob die auszugebenden Werte existieren.
      
      Natürlich könntest du auch den Code mit
      
      Code: (dl )
      
      1 2 3
      
      no warnings 'uninitialized'; # dein Code hier use warnings 'uninitialized';
      
      umrahmen, aber das ist auch nur Flickwerk.
      Last edited: 2010-12-30 14:32:37 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - Gast wer
      
      2010-12-30 14:33
      
      Code (perl): (dl )
      
      print "Ergebnis: ",$result[0][0] || '';
      
      aber "0" wird dabei auch geschluckt.
      perl>=5.10
      
      Code (perl): (dl )
      
      print "Ergebnis: ",$result[0][0] // '';
      
      testet nur auf "undef"
      - GwenDragon
        
        2010-12-30 14:38
        
        User since
        2005-01-17
        14783 Artikel
        Admin1
        
        Oder so.
        
        Code (perl): (dl )
        
        1 2 3 4
        
        print "Ergebnis: ", defined($result[0][0]) ? $result[0][0] : '*leer*';
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +4 replies
    - Crian
      
      2010-12-30 14:49
      
      User since
      2003-08-04
      5873 Artikel
      ModeratorIn
      
      2010-12-30T11:32:53 Knochen
      Ich habe folgenden Code:
      
      Code: (dl )
      
      1 2 3
      
      my $SQL = "SELECT * FROM TABELLE"; my @result=&funktion($SQL); print "Ergebnis: ".$result[0][0];
      
      Wie wäre es mit
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8
      
      my $sql = "SELECT * FROM TABELLE"; my @result = funktion($sql); if (defined result) { print "Ergebnis: ", $result[0][0]; } else { print "Kein Ergebnis.\n"; }
      
      s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
      
      use strict; use warnings; Link zu meiner Perlseite
      - bianca
        
        2010-12-30 16:08
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2010-12-30T13:49:29 Crian
        
        Code (perl): (dl )
        
        if (defined result) {
        
        Das wird Fehler schmeißen, weil result keine Funktion ist.
        10 print "Hallo"
        20 goto 10
      - +2 replies
      - pq
        
        2010-12-30 17:23
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        vermutlich meinst du defined @result, aber das wird immer true sein, wenn @result vorher ein rückgabewert einer funktion ist.
        in dem fall würde ich eher eine arrayref zurückgeben, da kann man dann auch in der funktion undef zurückliefern und es korrekt abfragen.
        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
        
        Knochen
        
        2011-01-25 10:42
        
        User since
        2007-03-28
        11 Artikel
        BenutzerIn
        
        Hallo Zusammen,
        
        vielen Dank für die Antworten, hat mir sehr geholfen!!!

View all threads created 2010-12-23 15:03.