DBI: Exception Model RaiseError (gelöst) (Fragen zu Perl-Modulen) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Fragen zu Perl-Modulen

2024-05-04 06:54:34
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
1 Gast

[thread]16100[/thread]

submit to reddit

DBI: Exception Model RaiseError [gelöst]

[gelöst]

Leser: 24

Articles: hide open all | hide show old branches

+16 replies
rosti

2011-03-23 10:21
User since
2011-03-19
3206 Artikel
BenutzerIn
Hallo,

im DB-Connect gibt es die Attribute PrintError und RaiseError. Im Default ist PrintError => 1, lasse ich das so stehen, und notiere {RaiseError => 0}, wirft mir DBI keine Exception, sehe ich das so richtig?

Ok, wir setzen {RaiseError => 1} und erwarten eine Exception, etwa bei einem fehlerhaften SQL-Statement. Abfangen der Exception mit eval like this:
Code: (dl )

1 2 3 4 5 6 7 8 9 10

eval{$sth->execute()}; if($@){ print join "\n", $@; } else{ while( my $ref = $sth->fetchrow_arrayref){ $self->{CALLBACK}($ref); #print "$ref->[0]\n"; } }
Gibt es da außer eval noch andere Möglichkeiten? Und überhaupt: Was ist der Unterschied zwischen einer Exception, die mit RaiseError ausgelöst wird und PrintError => 1, also mit {RaiseError => 1, PrintError => 1} bekomme ich ins Log zweimal diegleichen Meldungen.

Vielen Dank für hilfreiche Infos,
Rolf
- renee
  
  2011-03-23 11:22
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  PrintError sorgt dafür, dass Du eine *Warnung* bekommst, Dein Programm läuft aber weiter. Mit RaiseError macht DBI ein *die*, das Programm bricht also ab.
  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/
- +10 replies
- moritz
  
  2011-03-23 11:30
  
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  
  2011-03-23T09:21:23 rosti
  Gibt es da außer eval noch andere Möglichkeiten?
  
  Nein. eval { } ist halt das, was dafuer gut ist, exceptions zu fangen. Was willst du mehr?
  
  Es gibt Module wie Try::Tiny die dafuer eine andere Syntax anbieten, aber unter der Haube ist es immer noch eval.
  Perl 6 - Perls Zukunft
  - rosti
    
    2011-03-23 13:46
    
    User since
    2011-03-19
    3206 Artikel
    BenutzerIn
    
    hi @renee, @moritz,
    
    alles klar, Danke!!!!
    
    --Rolf
  - +8 replies
  - rosti
    
    2011-05-04 21:00
    
    User since
    2011-03-19
    3206 Artikel
    BenutzerIn
    
    Quote
    Nein. eval { } ist halt das, was dafuer gut ist, exceptions zu fangen. Was willst du mehr?
    
    Ja, nein, eigentlich haben wir alles, danke ;)
    
    Noch eine kleine Frage in Bezug auf Callback-Funktionen und Fehlerbehandlung. Vorab: Meine Callback-Funktionen verwenden ein prepared Statement, dem folgt das execute und dann wird pro Record die Callbackfunktion aufgerufen und die bringt das Ergebnis auf STDOUT.
    
    Nun ist es so, dass ein Statement auch mal fehlschlagen kann und die Callbackfunktion bekommt das nicht mit. In dem Moment, wo die Callbackfunktion greift, ist die Ausgabe schon vorbereitet, z.B. wurde zu diesem Zeitpunkt bereits ein header gesendet, ein Menu und der Kopf einer Tabelle mit Überschriften. Wenn da jetzt noch eine Fehlermeldung rein soll, passt das nicht so richtig.
    
    Meine Lösung:
    
    Ich rufe die Methode meiner DB-Klasse zweimal auf, einmal ohne Referenz auf die Callbackfunktion und einmal mit Referenz auf die Callbackfunktion.
    
    In der DB-Class-Method wird das Statement mit eval{} getestet und im Fehlerfall $@ zurückgegeben. Nach dem ersten Aufruf liegen klare Verhälnisse vor, im Fehlerfall -> Fehlerseite. Wenn kein Fehler aufgetreten ist, wird jetzt erst an dieser Stelle die Ausgabe vorbereitet (Header usw.) und dann die Method der DB-Klasse erneut gerufen, diesesmal mit der Referenz auf die Callbackfunktion, die dann Record für Record ausgibt.
    
    Hmmm, ja, geht. Wie macht Ihr das so???
    - +4 replies
    - GwenDragon
      
      2011-05-05 15:01
      
      User since
      2005-01-17
      14548 Artikel
      Admin1
      
      Und wieso kann beim zweiten Aufruf nichts fehlschlagen? Das ist rein theoretisch möglich.
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +3 replies
      - rosti
        
        2011-05-05 18:02
        
        User since
        2011-03-19
        3206 Artikel
        BenutzerIn
        
        2011-05-05T13:01:21 GwenDragon
        Und wieso kann beim zweiten Aufruf nichts fehlschlagen? Das ist rein theoretisch möglich.
        
        Ja, auch praktisch möglich. Zu sehen ist dann folgendes:
        Überschrift
        Kopf der Tabelle
        Fehlermeldung
        
        +2 replies
        
        Dubu
        
        2011-05-05 23:58
        
        User since
        2003-08-04
        2145 Artikel
        ModeratorIn + EditorIn
        
        Ich denke, der übliche Weg (wenn man kein Web-Framework nutzt, dass sich um so etwas kümmert), ist es, das erzeugte HTML nicht direkt auszugeben, sondern als Text in einer Variablen zwischenzuspeichern. Im Fehlerfall wird dann die Meldung ausgegeben, im Erfolgsfall der gespeicherte HTML-Code.
        
        rosti
        
        2011-05-06 05:54
        
        User since
        2011-03-19
        3206 Artikel
        BenutzerIn
        
        Hallo,
        
        Quote
        sondern als Text in einer Variablen zwischenzuspeichern.
        
        Damit geht der Sinn einer Callbackfunktion verloren, der darin besteht, die Datenmengen im Hauptspeicher klein zu halten. Es gibt prizipiell zwei Möglichkeiten:
        
        1 wie Du schreibst, das Abfrageergebnis wird als Variable verarbeitet, als Array-Ref, oder Hash-Ref, z.B. eine Tabelle, die Daten liegen komplett im RAM
        
        2 es wird eine Callbackfunktion gerufen, die Record für Record sofort auf die Ausgabe schreibt, im RAM liegt dann jeweils nur ein Record
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
        
        # URL-Details als Callback sub cb_urldetails{ my $self = shift; # in der DB Klasse my $cbref = shift; # CodeRef CallbackFunktion my $url = shift; my $q = q(SELECT ref, FROM_UNIXTIME(ts) as date, hugo FROM log WHERE url=? ORDER BY date DESC); my $st = $self->{DBH}->prepare($q); eval{ $st->execute($url); }; if($@){ $self->{EVE} = $@; return $@; } else{ if(ref $cbref eq 'CODE'){ while(my $ref = $st->fetchrow_hashref){ &$cbref($ref); # Callback } } } }
        
        Das Statement wird getestet und ausgeführt. Ab Zeitpunkt der Ausführung wird die CB-Funktion gerufen.
        
        Wenn die auszugebende Datenmenge feststeht, bevorzuge ich Variante (1). Hier ist die Fehlerbehandlung einfach.
        
        Ist es so, dass die Datenmenge variiert, bevorzuge ich die Ausgabe mit einer Callbackfunktion.
        
        Viele Grüße,
        Rolf
    - +3 replies
    - topeg
      
      2011-05-06 07:32
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Ich habe es häufig so gemacht, dass ich über eine Callback-Funktion Fehlermeldungen und "schwere" in einem Objekt ablege. Die entsprechenden Stellen auf der Seite fülle ich mit leeren Werten. Zuletzt setze ich die Fehlermeldungen in das HTML und verschiebe es per CSS nach oben, oder überdecke die Seite, wenn ein schwerer Fehler aufgetreten ist.
      Das hat nicht nur den Vorteil, dass die Meldungen gebündelt erscheinen, es macht auch das Design der Seite einfacher, da die Meldungen nicht irgendwelche Verschiebungen verursachen. Weiterhin kann man die Ausgaben zentral unterdrücken oder verändern, wenn es nötig sein sollte.
      - rosti
        
        2011-05-06 12:35
        
        User since
        2011-03-19
        3206 Artikel
        BenutzerIn
        
        Vielen Dank!!!
        
        Meine Gedanken gehen in eine ähnliche Richtung ;)
        
        Schönes Wochenende,
        Grüße an Alle,
        Rolf
      - rosti
        
        2011-05-07 08:35
        
        User since
        2011-03-19
        3206 Artikel
        BenutzerIn
        
        Moin,
        
        meine Lösung sieht nun so aus, dass die DB-Klasse eine Tie-Method hat:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
        
        sub TIEARRAY{ my $class = shift; my $ref = shift; my $self = $class->new; return if $@; if(exists $ref->{url}){ my $q = q(SELECT ref, FROM_UNIXTIME(ts), hugo FROM log WHERE url=? ORDER BY ts DESC LIMIT 10); my $st = $self->{DBH}->prepare_cached($q); eval{ $st->execute($ref->{url}); $self->{STH} = $st; # Statement Handle an Objekt $self->{CB} = $ref->{callback}; # Callbackfunktion an Objekt }; return if $@; } return $self; }
        
        In der Einbindung wird zunächst das Array gebunden:
        
        Code (perl): (dl )
        
        1 2 3
        
        tie (my @ura, 'TieLog', { url => '/praxis', callback => \&cb_array}) || die "Fehler: $@"; print "============= Daten kommen ==============\n\n"; tied(@ura)->callback;
        
        D.h., beim tie() wird festgestellt, ob es einen Fehler gab. Danach kann die Ausgabe erfolgen. Wenn dabei 'unterwegs' noch was schiefgeht, isses halt Pech ;)
        
        Edit: Callback-Method in der DB-Klasse
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        # CallBack sub callback{ my $self = shift; while(my $ref = $self->{STH}->fetchrow_arrayref){ $self->{CB}($ref); } }
        
        Diese Methode kann immer dann verwendet werden, wenn die Ausgabe über eine Array-Referenz je Record erfolgen soll (Code mehrfach verwendbar).
        
        Last edited: 2011-05-07 08:46:33 +0200 (CEST)
- +4 replies
- GwenDragon
  
  2011-03-23 14:15
  
  User since
  2005-01-17
  14548 Artikel
  Admin1
  
  Verschoben von Datenbanken und Verzeichnisdienste nach Fragen zu Perl-Modulen
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +3 replies
  - pq
    
    2011-03-23 14:19
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    eigentlich war das forum schon richtig:
    Perl-Module: "Fragen zu / Probleme mit bestimmten Modulen (ausgenommen Module, die schon in den anderen Foren thematisch behandelt werden, also DBI & Co., CGI, Tk, Wx etc.)"
    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
    - rosti
      
      2011-03-23 14:30
      
      User since
      2011-03-19
      3206 Artikel
      BenutzerIn
      
      Ich hätte nicht recht gewusst, wohin. Eigentlich gehts mehr allgemein um Exceptions und RaiseError ist nur ein Beispiel.
      
      --Rolf
    - GwenDragon
      
      2011-03-23 14:41
      
      User since
      2005-01-17
      14548 Artikel
      Admin1
      
      Bin nicht unfehlbar. Ich dachte es ginge ganz speziell Exceptions bei DBI, deswegen Titel umgestellt und verschoben. *blush*
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2011-03-23 10:21.