Subroutine bei warning verlassen (Allgemeines zu Perl)

[thread]19168[/thread]

Subroutine bei warning verlassen

Tags: perl5 subroutine inner leave Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+6 replies
guest Borsti26

2014-06-30 11:47
Hallo,

ich habe eine Subroutine bei der es vorkommen kann das es warnings gibt, da hier User eingaben gemacht werden.
Nun möchte ich gerne das bei einem warning die subroutine beendet wird aber alles nach der Subroutine weiterläuft.
Habe es mit Switch blocks versucht aber hier lässt sich das ganze nicht aus der Inner warning subroutine beenden.
Packe ich das last ausserhalb dann klappt es.
Hat jemand hier noch eine Idee für mich wie man das umsetzen kann?

Beispiel Code:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

#!/usr/bin/perl use warnings; event_start(); print "Should be visible even there is a warning"; sub event_start { OUTER: { $SIG{__WARN__} = sub { print STDOUT "\nWarning generated:\n", @_, "\n"; last OUTER; #should break out the OUTER /event_start function }; print "Start\n"; if("test"==1){ print "create warning"; } print "Should not be shown"; } }
Last edited: 2014-06-30 12:09:49 +0200 (CEST)
- guest wer
  
  2014-06-30 12:55
  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 23 24 25 26 27 28
  
  #!/usr/bin/perl use strict; use warnings; print "Start\n"; event_start(); print "Should be visible even there is a warning\n"; sub event_start { my $ret=0; my $val='test'; my $ok=eval { local $SIG{__WARN__} = sub { die( "\nWarning generated:\n", @_ ); }; $ret++ if($test==1) ; return 1; }; unless($ok) { my $func_name=(caller(0))[3]; print "format error in $func_name ($@)\n"; return 0; } return $ret; }
  
  ungetestet
  Last edited: 2014-06-30 13:33:24 +0200 (CEST)
- +4 replies
- Muffi
  
  2014-06-30 12:56
  
  User since
  2012-07-18
  1465 articles
  BenutzerIn
  
  Und wo soll da jetzt eine warning entstehen?
  1 + 1 = 10
  - +3 replies
  - Muffi
    
    2014-06-30 13:36
    User since
    2012-07-18
    1465 articles
    BenutzerIn
    
    Ah, der Vergleich, habs kapiert.
    
    Sowas z.B.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
    
    sub foo { local $SIG{__WARN__} = sub { say "warning passiert, breche ab. @_"; die '__INTERNAL_WARNING__'; }; warn 'Das ist ein Test'; say 'Ein Text, der nie kommt'; } eval { foo(); }; if ($@ and $@ !~ /^__INTERNAL_WARNING__/) { die $@; } warn 'Warning ausserhalb'; say 'Ganz zum Schluss';
    
    edit: Ich weiß jetzt nicht, warum du das vor hast, aber wenn das irgendwie Richtung Flusssteuerung oder "Ich spar mit Checks und wart bis Perl meckert" geht würd ich das dringenst lassen.
    Last edited: 2014-06-30 13:44:27 +0200 (CEST)
    1 + 1 = 10
    - +2 replies
    - guest Borsti26
      
      2014-06-30 14:05
      
      Super, Danke euch beiden. Habe es jetzt so umgesetzt und es funktioniert.
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
      
      #!/usr/bin/perl use warnings; eval { event_start(); }; print "Should be visible even there is a warning"; sub event_start { local $SIG{__WARN__} = sub { print STDOUT "\nWarning generated:\n", @_, "\n"; die; }; print "Start\n"; if("test"==1){ print "create warning"; } print "Should not be shown"; }
      
      Im übrigen: Ich habe eine Gui wo über ein Button die sub gestartet wird in der dann ein output erstellt wird welcher auf User eingaben aufbaut. Hier kann es zu Fehlern kommen und ich möchte dann lieber den prozess sofort abbrechen weil es auch passieren kann das das script sonst ewig läuft. Doch die Gui soll weiter laufen und ich geben dem user nur die Info das es abgebrochen ist und er kann ohne die Gui neu zu starten mit neuen inputs erneut den button drücken für die outputs.
      
      PS: Verlangsamt das Eval eigentlich die Script Ausführung?
      Last edited: 2014-06-30 14:19:37 +0200 (CEST)
      - Muffi
        
        2014-06-30 14:25
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Überleg dir noch, ob du für warnings nicht wie im Beispiel einen speziellen "die" machen willst, den du dann aussen vom Rest unterscheidest.
        Momentan verschluckt deine Lösung alle Arten von Programmabbrüchen in der sub wortlos.
        Musst du wissen, ob das so gut ist.
        1 + 1 = 10

View all threads created 2014-06-30 11:47.