Absturz bei exit( 0 ) Befehl innerhalb eines Buttons (solved) (Graphische Oberflächen)

[thread]20350[/thread]

Absturz bei exit( 0 ) Befehl innerhalb eines Buttons [solved]

Tags: perl5 GUI Similar Threads

Readers: 13

Articles: hide open all | hide show old branches

+7 replies
YAPD

2017-08-07 20:58

User since
2015-09-20
146 articles
BenutzerIn

Guten Abend Zusammen,

ich habe mal wieder ein Problem, das ich mir nicht erklären kann & bräuchte hier Eure Unterstützung :

Und zwar habe ich eine Oberfläche mittels Tk geschrieben. Im ersten
Schritt lese ich verschiedene Parameter aus einer Config-Datei ein,
die ich Parser.pm genannt habe & im Unterordner Modules liegt.

Also eingebunden mit Modules::Parser;

Nun habe ich für meine Anwendung eine weitere .PM Datei, in der das
Fehler Handling abgearbeitet wird namens Hilfe.pm, die ebenfalls im Ordner Module liegt :
more (14.0kb)
Last edited: 2017-08-07 21:18:20 +0200 (CEST)
Yet Another Perl Developer
- +5 replies
- Relais
  
  2017-08-07 21:38
  
  User since
  2003-08-06
  2257 articles
  ModeratorIn
  
  Moin,
  
  vorweg, ich habe noch nichts mit TK in Perl getan, drum könnte meine Antwort weit daneben liegen. Trotzdem:
  
  exit beendet den Perl-Interpreter. Das mag in TK anders sein, aber an sich ist das die Aufgabe des Kommandos.
  
  Wenn Du eine Subroutine beenden möchtest, dann machst Du das mit return .
  Erst denken, dann posten --
  27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.
  
  Winter is Coming
  - +4 replies
  - YAPD
    
    2017-08-07 22:30
    User since
    2015-09-20
    146 articles
    BenutzerIn
    
    Hey Relais,
    
    danke für deine Antwort. Leider klappt das mit den returns zwar,
    aber wiederum nicht so ganz. Ich versuche es nochmal zu erklären :
    
    Ich habe 3 Dateien :
    SSL_Server.pl ( erzeugt den Fehler und ruft Parser.pm auf )
    Modules/Parser.pm
    Modules/Hilfe.pm
    
    In der Datei SSL_Server.pl sind eigentlich nur diese 2 Einträge
    interessant :
    
    Code: (dl )
    
    1 2 3 4 5
    
    use Modules::Parser; # Aufruf & Pruefung der Config - Eintraege aus Parser - Datei my $Config_Eintraege = &Parser_Initialisierung( );
    
    In der Sub - Routine des Moduls Parser.pm habe ich nun die Sub -
    Routine Fehler_Bearbeitung, ein TK Fenster, in dem nur ein kurzer
    Text die Fehlermeldung und der Link "Mehr" enthalten sind.
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
    
    $Fehler_Verarbeitung_Fenster -> AddLabel( -text => "Mehr ..." , -onClick => sub{ \&Fehler_Hilfe_Oberflaeche( $Fehler_Verarbeitung_Code , $Fehler_Verarbeitung_Fenster ) return; } , -font => $Fehler_Verarbeitung_Schrift_Verweise , -notify => 1 , -pos => [ 100 , 75 ] ); $Fehler_Verarbeitung_Fenster -> Enable( ); # Aktivierung des Fensters $Fehler_Verarbeitung_Fenster -> Show( ); # Darstellung des Fensters Win32::GUI::Dialog; }
    
    Hier rufe ich die Sub - Routine &Fehler_Hilfe_Oberfläche auf, die in der Datei Hilfe.pm liegt :
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9
    
    $Fenster_Fehler_Hilfe -> Button( -text => ' Ende ' , -width => 33 , -height => 2 , -command => sub{ $Fenster_Fehler_Hilfe -> destroy; return; } ) -> place( -x => 287 , -y => 485 );
    
    Leider bleibt die erste Datei des Aufrufs, also die SSL_Server.pl in der Kommandozeile aktiv und wird
    nicht beendet, bzw. stürzt Perl ab bei einem exit( ) Befehl. :/
    
    Viele Grüße
    YAPD
    Yet Another Perl Developer
    - +3 replies
    - styx-cc
      
      2017-08-07 23:02
      
      User since
      2006-05-20
      533 articles
      BenutzerIn
      
      Hi.
      
      Kannst du Deinen Code bitte so zusammenstutzen, dass man Ihn kopieren kann und er weiterhin lauffähig ist und das Problem trotzdem noch auftritt, am besten ohne Win32-Module =) ?
      
      Ist zwar etwas aufwendig, aber macht es unheimlich viel leichter Dir zu helfen.
      
      Lieben Gruß
      Last edited: 2017-08-07 23:08:48 +0200 (CEST)
      Pörl.
      - YAPD
        
        2017-08-07 23:11
        
        User since
        2015-09-20
        146 articles
        BenutzerIn
        
        Hey styx,
        
        ja klar :)
        Ich versuch es gleich mal zu kürzen. :)
        
        Viele Grüße
        YAPD
        Yet Another Perl Developer
      - YAPD
        
        2017-08-07 23:31
        
        User since
        2015-09-20
        146 articles
        BenutzerIn
        
        Hey styx,
        
        anbei stelle ich dir / Euch das abgespeckte Script zur
        Verfügung. Bei mir läuft es so immer noch auf Fehler.
        
        Wenn man die SSL_Server.pl startet, sollte das Meldungsfenster
        erscheinen und im Anschluss die Fehler Hilfe. Klickt man dann
        auf "Ende" stürzt Perl ( bei mir ) ab. :/
        
        Viele Grüße
        YAPD
        Attachments
        
        application/zip
        Probleme_Hilfe_Oberflaeche_V.zip
        
        Last edited: 2017-08-07 23:32:46 +0200 (CEST)
        Yet Another Perl Developer
- YAPD
  
  2017-08-08 00:53
  User since
  2015-09-20
  146 articles
  BenutzerIn
  Ich habe nun eine Lösung für mein Problem gefunden :)
  Und zwar benutze ich einfach POSIX :
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  use POSIX qw[ _exit ]; $Fenster_Fehler_Hilfe -> Button( -text => ' Ende ' , -width => 33 , -height => 2 , -command => sub{ $Fenster_Fehler_Hilfe -> destroy; POSIX::_exit( 0 ); } ) -> place( -x => 287 , -y => 485 );
  
  Ist es ratsam, das so zu benutzen oder gib es bessere Alternativen ?
  
  Viele Grüße
  YAPD
  Last edited: 2017-08-08 10:05:30 +0200 (CEST)
  Yet Another Perl Developer

View all threads created 2017-08-07 20:58.