Automatischer Programmstart nach Programmeende (solved) (Allgemeines zu Perl)

[thread]20106[/thread]

Automatischer Programmstart nach Programmeende [solved]

Tags: perl5 Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+10 replies
der_thomas

2016-07-01 09:57

User since
2013-09-07
158 articles
BenutzerIn

Hallo,

Gibt es eine Möglichkeit auf ein Schließen einer (tk) GUI Anwendung mittels dem X in der Fensterleiste zu reagieren - vor allem unter Win 10, Linux wäre auch toll, hat aber keine Priorität ?

Hintergrund:
Zwei räunlich getrennte PCś sollen auf eine Textdatei, die sich in einer Dropbox befindet, lesend und schreibend zugreifen können. Eine zweite (Log) Datei soll beschrieben werden wenn einer der beiden Nutzer das Programm startet ...z.B. 'Datei wird gerade von Nutzer A bearbeitet'.
Dieser Eintrag soll dann rausgenommen werden wenn Nutzer A das Programm beendet und keine Speichervorgänge mehr zu erwarten sind.

Beendet nun Nutzer A sein Programm 'ordnungsgemäß' mittels einem 'Beenden' Button ist das Beschreiben dieser Log Datei kein Problem, anders ists aber wenn der Nutzer versehentlich einfach das Programmfenster schließt.

Ich bräuchte also ein Möglichkeit dass ein zweites Script auf jeden Fall nach dem Beenden des eigentlichen Programms gestartet wird - und sozusagen in dieser Log Datei aufräumt.

Eine Alternative, aber vielleicht unsaubere Methode ??, wäre es ein close $FH nicht sofort nach dem Lesevorgang sondern erst beim Beenden des Programms auszulösen ? Allerdings weiß ich nicht ob bei Windows 10 so eine geöffnete Datei auch dann geschlossen wird wenn das aufrufende Programm per Fenster schließen 'abgewürgt' wird ? Und ohne Grund wird man ein close ja auch nicht verwenden ;)

Hat jemand von euch da ein Idee ?

Viele Grüße
Thomas

P.S. Ich gebs zu dass ich google nicht befragt habe, da ich keine Ahnung habe nach welchen Suchbegriffen ich da suchen könnte....mir fiel noch nicht mal ein passender Titel für diesen Thread ein....
Last edited: 2016-07-01 09:58:42 +0200 (CEST)
- GwenDragon
  
  2016-07-01 10:26
  
  User since
  2005-01-17
  14924 articles
  Admin1
  
  Dann fang halt den Schließen-Button in Tk ab, wenn das nicht erlaubt ist.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- Linuxer
  
  2016-07-01 11:05
  
  User since
  2006-01-27
  3891 articles
  HausmeisterIn
  
  Entweder wie von GwenDragon schon genannt, im Tk das Schließen-Event abfangen und dann entsprechend handeln.
  
  Oder alternativ einen END Block definieren, in dem Code ausgeführt wird, wenn das Programm beendet wird.
  
  http://www.perlmonks.org/?node=152463
  
  http://perldoc.perl.org/perlmod.html#BEGIN%2C-UNIT...
  http://perlmaven.com/end
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - der_thomas
    
    2016-07-01 20:27
    
    User since
    2013-09-07
    158 articles
    BenutzerIn
    
    Super, das:
    
    http://www.perlmonks.org/?node=152463
    war es, was ich suchte/benötigte.
    
    Tausend Dank
- +6 replies
- hlubenow
  
  2016-07-01 12:40
  
  User since
  2009-02-22
  887 articles
  BenutzerIn
  
  2016-07-01T07:57:03 der_thomas
  Zwei räunlich getrennte PCś sollen auf eine Textdatei, die sich in einer Dropbox befindet, lesend und schreibend zugreifen können. Eine zweite (Log) Datei soll beschrieben werden wenn einer der beiden Nutzer das Programm startet ...z.B. 'Datei wird gerade von Nutzer A bearbeitet'.
  Dieser Eintrag soll dann rausgenommen werden wenn Nutzer A das Programm beendet und keine Speichervorgänge mehr zu erwarten sind.
  
  Ich würde das über das System lösen: Entweder "ps x" untersuchen (ob Programm läuft) oder, vielleicht besser, eine Datei anlegen, die anzeigt, ob das Programm läuft und wer es benutzt, usw.. Dann kann der andere Benutzer prüfen, ob die Datei existiert.
  - GwenDragon
    
    2016-07-01 13:05
    
    User since
    2005-01-17
    14924 articles
    Admin1
    
    Hilft aber nicht viel, weil Dropbox keine Dateisperren kennt, oder?
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - der_thomas
    
    2016-07-01 20:31
    
    User since
    2013-09-07
    158 articles
    BenutzerIn
    
    Quote
    .....vielleicht besser, eine Datei anlegen, die anzeigt, ob das Programm läuft und wer es benutzt, usw.. ....
    
    Genau, das ist mein Plan bzw. meinte meinte ich mit einer 'Log Datei'.
    
    Viele Grüße
    Thomas
    - +3 replies
    - hlubenow
      
      2016-07-01 22:25
      
      User since
      2009-02-22
      887 articles
      BenutzerIn
      
      2016-07-01T18:31:13 der_thomas
      Genau, das ist mein Plan bzw. meinte meinte ich mit einer 'Log Datei'.
      
      Ach so. Na, zum Beenden eines Tk-Programms wird wohl irgendwo
      
      Code (perl): (dl )
      
      $mw->destroy();
      
      stehen. Davor kannst Du noch Dinge ausführen, z.B. in eine Datei schreiben. Beispiel:
      
      Code (perl): (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; use strict; use Tk; my $mw = MainWindow->new(); my $exit_btn = $mw->Button(-text => "Exit", -command => \&end_program); $exit_btn->pack(); $mw->MainLoop(); sub end_program { # open(my $fh, ">", "logfile"); # print $fh "Application finished.\n"; # close($fh); print "Application finished.\n"; $mw->destroy(); }
      - guest janus
        
        2016-07-02 11:50
        
        Warum nicht gleich in sub DESTROY{} gerne auch cleanup genannt.
        Last edited: 2016-07-02 12:19:32 +0200 (CEST)
      - der_thomas
        
        2016-07-02 19:25
        
        User since
        2013-09-07
        158 articles
        BenutzerIn
        
        Klar, diese Variante hatte ich schon, es ging mir darum was passiert wenn der User nicht diesen 'Exit' Button anklickt, sondern einfach das Fenster per X in der Fensterleiste schließt...
        
        Lösen konnte ich das nun dank des Links von 'Linuxer'
        
        Code (perl): (dl )
        
        1 2 3
        
        sub main { our $mw = MainWindow->new(); $mw->protocol('WM_DELETE_WINDOW', \&beenden);
        
        Diese 'sub beenden' wurde bisher nur ausgelöst wenn man den Beenden Button anklickte, nicht aber wenn man einfach das Fenster schloß.
        
        Viele Grüße
        Thomas
        Last edited: 2016-07-02 19:28:42 +0200 (CEST)

View all threads created 2016-07-01 09:57.