Perl to EXE --> Sofortiges Schließen verhindern (Allgemeines zu Perl)

[thread]14881[/thread]

Perl to EXE --> Sofortiges Schließen verhindern

Leser: 18

Articles: hide open all | hide show old branches

+5 replies
PETER_PAN2009

2010-03-29 09:23

User since
2009-08-24
111 Artikel
BenutzerIn

Guten Morgen!

Habe ein Script mittels PAR in ein executable konvertiert und möchte dass sich das Fenster nicht sofort schließt, wenn die Anwendung am Ende ist. Wie kann ich erzwingen, dass zum Schluss oder auch bei Errors sich das Fenster nicht schließt??

Ich habe mir "wait()" angesehen, gibt es ne schönere Lösung?

Danke
Gruß
Peter
- +4 replies
- Taulmarill
  
  2010-03-29 09:31
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  Du kannst in deinem Programm am Ende einfach eine normale Eingabe über die Kommandozeile abfragen, damit wartet dein Script dann quasi auf ein Enter.
  
  Code (perl): (dl )
  
  1 2
  
  print "Drücke <ENTER> zum fortfahren."; <STDIN>;
  
  Last edited: 2010-03-29 09:35:01 +0200 (CEST)
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +3 replies
  - PETER_PAN2009
    
    2010-03-29 09:58
    
    User since
    2009-08-24
    111 Artikel
    BenutzerIn
    
    Danke, daran habe ich auch schon gedacht! Was ist denn mit Fehlermeldungen, ich kann doch nicht bei jeder Abfrage noch ein <STDIN> einbauen...oder?
    
    Gruß
    Peter
    - +2 replies
    - renee
      
      2010-03-29 10:10
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Wenn es nur Informationscharakter hat, dann brauchst Du das nicht tun. Willst Du etwas vom Benutzer wissen, musst Du das sowieso machen.
      
      Kommt halt auch darauf an, was Du willst. Ich würde die Fehlermeldungen vielleicht noch in eine Logdatei schreiben, so dass auch nach einem Programmlauf noch nachvollzogen werden kann, was passiert ist.
      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/
      - Gast wer
        
        2010-03-29 14:38
        
        ich glaube es geht ihm um die(...) Situationen. Da geht die Box auch zu, bevor man es Lesen kann.
        Ich glaube man kann es so machen:
        
        Code (perl): (dl )
        
        system('msg "%username%" '.$text);
        
        oder
        
        Code (perl): (dl )
        
        system("net send localhost $text")
        
        dann geht ein Popup auf mit der Nachricht.
        Dass kann man dann in eine Funktion packen:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        sub error{ my $message=shift; system("net send localhost $text"); die($message); }
        
        Last edited: 2010-03-29 14:41:42 +0200 (CEST)

View all threads created 2010-03-29 09:23.