EXE-Files starten und wieder beenden (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-07-27 06:31:37
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
12 Gäste

[thread]15872[/thread]

submit to reddit

EXE-Files starten und wieder beenden [gelöst]

[gelöst]

Leser: 21

Articles: hide open all | hide show old branches

+23 replies
la_dy82

2011-01-20 21:59

User since
2010-10-25
86 Artikel
BenutzerIn

Hallo!

Wie kann man mit Perl EXE files öffnen und wieder schließen?
Ich möchte eine XXX.exe öffnen und nach einer kurzen Zeit wieder schließen.
Gibt es da Befehle für?

//modedit GwenDRagon: Titel geändert
Last edited: 2011-01-21 10:55:43 +0100 (CET)
- +3 replies
- hlubenow
  
  2011-01-20 22:03
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  Möchtest Du die .exe-Datei ausführen oder sie als binäre Daten öffnen (Stichwort "binmode")?
  - +2 replies
  - la_dy82
    
    2011-01-21 08:38
    
    User since
    2010-10-25
    86 Artikel
    BenutzerIn
    
    Eigentlich ausführen, wie z.B. das Programm Paint (Befehl zum öffnen und danach wieder mit eionem Befehl schließen).
    Vielleicht 1 Sekunde dazwischen warten, wenn es so einen Befehl gibt...
    
    Oder wenn das Programm gestartet ist, danach wieder schließen?!?
    
    Edit:
    Oder wenn ...
    Last edited: 2011-01-21 08:56:28 +0100 (CET)
    - bianca
      
      2011-01-21 09:04
      
      User since
      2009-09-13
      7011 Artikel
      BenutzerIn
      
      Programmstart läßt sich mit system() oder qx() bewerkstelligen.
      Wieder schließen ist ein Systemeingriff. Wir hatten hier letztens einen Thread, da hat glaub ich GwenDragon einen Tipp gegeben, wie man ein Windowsfenster schließt. Gibt ein Modul dafür.
      Benutz mal die Forumsuche und sortier dort nach Datum, ist maximal 2 Monate her.
      Edit:
      Habs gefunden: Win32::Process - Prozesskontrolle scheitert bei explorer.exe
      Die Empfehlung konkret: msg #143290
      Last edited: 2011-01-21 09:07:51 +0100 (CET)
      10 print "Hallo"
      20 goto 10
- +2 replies
- GwenDragon
  
  2011-01-21 09:11
  
  User since
  2005-01-17
  14711 Artikel
  Admin1
  
  Win32::Process ist das Modul.
  Wie Bianca es schon schrieb als Beispiel zu finden.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - bianca
    
    2011-01-21 09:25
    
    User since
    2009-09-13
    7011 Artikel
    BenutzerIn
    
    @la_dy82: Sehe gerade, dass man damit anscheinend auch Prozesse starten kann: Win32::Process::Create
    
    Das sollte Deine Optimallösung sein.
    10 print "Hallo"
    20 goto 10
- +17 replies
- GwenDragon
  
  2011-01-21 09:52
  User since
  2005-01-17
  14711 Artikel
  Admin1
  Beispiel:
  
  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
  
  use Win32::Process; use Win32; use strict; use warnings; my $warten = 10; # Wartedauer sub ErrorMessage{ return Win32::FormatMessage( Win32::GetLastError() ); # letzter Win32-Fehler } my $ProcessObj; my $Arbeitsverzeichnis = "."; Win32::Process::Create( $ProcessObj, "C:\\Windows\\notepad.exe", # zu startendes Programm "notepad", # Kommandozeile 0, NORMAL_PRIORITY_CLASS, $Arbeitsverzeichnis ) || die ErrorMessage(); sleep($warten); # warte ein bisschen $ProcessObj->Kill(0) || die ErrorMessage();
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +16 replies
  - la_dy82
    
    2011-01-21 09:59
    
    User since
    2010-10-25
    86 Artikel
    BenutzerIn
    
    Danke...
    
    Muss die Zeile 8-10 eingegeben werden?
    Warum muss die Zeile 18 so eingegeben werden (Können da z.B. Übergabeparameter an das zu öffnende Programm übergeben werden, wie -R "Dateipfad")?
    - +2 replies
    - pq
      
      2011-01-21 10:12
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      ich möchte mal darauf hinweisen, dass gleich das erste beispiel in der dokumentation beschreibt, wie man einen dateinamen an notepad übergibt.
      also vielleicht doch einfach mal die mühe machen und doku lesen.
      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
      - la_dy82
        
        2011-01-21 10:28
        
        User since
        2010-10-25
        86 Artikel
        BenutzerIn
        
        Die Dokumentation habe ich mir angesehen, wobei Fragen/Unsicherheiten aufgetaucht sind, die ich deshalb gestellt habe.
        
        Ich bin halt Neuling auf diesem Gebiet und versuche vorher max. Informationen einzuholen...
        
        Deswegen die vielen Fragen... Bin noch nicht so vertraut mit der Anwendung von Modulen, usw.
        Last edited: 2011-01-21 10:29:57 +0100 (CET)
    - +4 replies
    - Linuxer
      
      2011-01-21 10:44
      
      User since
      2006-01-27
      3888 Artikel
      HausmeisterIn
      
      Wie willst Du Zeile 8-10 denn sonst eingeben?
      Die Absicht, die hinter dieser Definition dieser Subroutine steckt, hast Du erkannt, oder?
      
      Das Format der Zeile 18 ist wie von pq schon angemerkt, in der Dokumentation schon angedeutet anhand des notepad Beispiels; da ist der Übergabeparameter eben der zu öffnende Dateiname...
      
      Hast Du denn schon mal versucht, Dein "-R 'dateiname'" einzusetzen?
      
      Wenn Du nicht gerade Kommandos zum Löschen/Reformatieren der Festplatte ausprobierst, lassen sich viele Fragen auch schon durch einen einfachen Versuch beantworten.
      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!
      - +3 replies
      - la_dy82
        
        2011-01-21 11:42
        
        User since
        2010-10-25
        86 Artikel
        BenutzerIn
        
        2011-01-21T09:44:48 Linuxer
        Wie willst Du Zeile 8-10 denn sonst eingeben?
        Die Absicht, die hinter dieser Definition dieser Subroutine steckt, hast Du erkannt, oder?
        
        Leider nicht...
        
        murphy
        
        2011-01-21 12:03
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Es handelt sich um eine Hilfsfunktion, die den letzten aufgetreten Windowsfehler als menschenlesbare Zeichenkette formatiert.
        When C++ is your hammer, every problem looks like your thumb.
        
        Linuxer
        
        2011-01-21 12:22
        
        User since
        2006-01-27
        3888 Artikel
        HausmeisterIn
        
        OK. murphy hat ja schon erklärt, was die Routine macht.
        
        Ist ja nun relativ viel Arbeit für Fehlerausgaben immer Win32::FormatMessage( Win32::GetLastError() ) zu tippen. Um sich diese Arbeit zu ersparen, kann man eben genau so eine Hilfsfunktion erstellen, die man einfacher und schneller getippt hat.
        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!
    - +9 replies
    - GwenDragon
      
      2011-01-21 10:57
      
      User since
      2005-01-17
      14711 Artikel
      Admin1
      
      In die Kommandozeile kommen alle zu übergebenden Parameter für das Programm.
      Wenn du doppelt Anführungszeichen (") als Parameter verwendest, solltest du die ganze Zeichenkette in einfache (') einschließen.
      
      Also so:
      
      Code (perl): (dl )
      
      '-R "C:\My Drive\Mir\"'
      
      oder
      
      Code (perl): (dl )
      
      q(-R "C:\My Drive\Mir\")
      
      q ist ~~eine Funktion~~ ein Operator in Perl, um den nachfolgenden Inhalt in einfache Anführungszeichen zu stellen.
      
      //EDIT2: Funktion durch Operator ersetzt
      Last edited: 2011-01-21 13:24:40 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - murphy
        
        2011-01-21 12:01
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        2011-01-21T09:57:35 GwenDragon
        [...]
        //EDIT:
        q ist eine Funktion um den nachfolgenden Inhalt in einfache Anführungszeichen zu stellen.
        
        Auch auf die Gefahr hin, Haare zu spalten: q ist keine Funktion, sondern ein Syntaxelement. Gerade ein Programmieranfänger sollte den Unterschied lernen, sonst treten wieder so schlaue Fragen auf wie "Warum werten manche Funktionen ihre Argumente aus und andere nicht?".
        When C++ is your hammer, every problem looks like your thumb.
        
        GwenDragon
        
        2011-01-21 13:22
        
        User since
        2005-01-17
        14711 Artikel
        Admin1
        
        Ja, du hast ja Recht. Meine Ungenauigkeit.
        q ist ein Sprachelement von Perl, ein Operator.
        
        Die Klammerzeichen bei q() in meinem Beispiel sind ja nur Begrenzer und das könnte auch als q// geschrieben werden.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +6 replies
      - la_dy82
        
        2011-01-21 13:27
        
        User since
        2010-10-25
        86 Artikel
        BenutzerIn
        
        Die Parameterübergabe funktioniert nicht ganz bei mir.
        
        Dem Programm, welches ich öffnen will, muss ich zwei Parameter übergeben. Das sind: -b und -f, wobei ich bei -f einen Dateinamen geben muss, in das das Programm Statuswerte reinschreibt.
        Hab es so definiert: ...'-b -f "meineDat.txt"',...
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14
        
        my $Arbeitsverzeichnis = "."; sub ErrorMessage{ return Win32::FormatMessage( Win32::GetLastError()); } Win32::Process::Create( $ProzessFGState, "C:\\Programme\.....\\Programm.exe", '-b -f "meineDat.txt"', 0, NORMAL_PRIORITY_CLASS, $Arbeitsverzeichnis ) || die ErrorMessage(); sleep($Pause);
        
        Das Programm wird gestartet, jedoch die Testdatei wird nicht erstellt!
        Wenn ich in der CMD-Konsole eingebe: Programm.exe -b -f "meineDat.txt"
        oder Programm.exe -b -f meineDat.txt, dann wird das Programm gestartet und die Textdatei wird erzeugt. (Im Windowsfenster (oberste "Leiste") erscheint der Programmname und dahinter in eckigen Klammern der Textdateiname: [meineDat.txt]). Wenn das Programm übers Skript aufgerufen wird, dann erscheint: [meineDat.txt*].
        
        Was mache ich falsch?
        
        Linuxer
        
        2011-01-21 13:50
        
        User since
        2006-01-27
        3888 Artikel
        HausmeisterIn
        
        Auffallen tut mir nur, dass die Beispiele in der Kommandozeile das aufgerufene Programm mit aufführen, und Du dies nicht tust...
        
        Hast Du es mal mit dem Programmnamen in der Kommandozeile versucht?
        
        'programm -b -f datei.txt' != '-b -f datei.txt'
        
        edit: Satz umgestellt.
        Last edited: 2011-01-21 16:36:53 +0100 (CET)
        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!
        
        GwenDragon
        
        2011-01-21 15:21
        
        User since
        2005-01-17
        14711 Artikel
        Admin1
        
        Der dritte Parameter bei Win32::Process::Create ist die Kommandozeile und die Kommandozeile enthält meines Wissens auf Windows immer den Programmnamen (mit Pfad, falls nicht im Suchpfad) mit den Parametern!
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        bianca
        
        2011-01-21 15:40
        
        User since
        2009-09-13
        7011 Artikel
        BenutzerIn
        
        2011-01-21T12:27:27 la_dy82
        Wenn das Programm übers Skript aufgerufen wird, dann erscheint: [meineDat.txt*].
        
        Sieht mir so aus als ob das Programm die Datei zwar intern generiert aber nicht schreiben kann, Stern deutet auf einen ungespeicherten Zustand einer geänderten/neu erstellten Datei hin. So machen es zumindest sehr viele Windowsprogramme.
        
        Wie rufst Du das Perlscript auf?
        Falls über Webserver, reichen die Rechte aus?
        Bin nicht sicher, wie das mit den Berechtigungen aussieht aber angenommen das programm.exe will in c:\programme.... schreiben und wurde über den Webserver über Perl und über das Modul aufgerufen, ob es dann noch genügend Rechte dafür besitzt.
        Hast Du Dir mal selbst eine test.cmd erstellt die einfach nur einen test.txt anlegt und damit probiert und verschiedene Pfade testweise getestet?
        
        Edit: Hast Du mal unter eventvwr in die Systemereignisse geschaut, ob da was auftaucht?
        Und mal das error.log im Webserver gecheckt?
        Gibt es von programm.exe vielleicht ein eigenes Log?
        Last edited: 2011-01-21 15:43:35 +0100 (CET)
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        la_dy82
        
        2011-01-21 15:51
        
        User since
        2010-10-25
        86 Artikel
        BenutzerIn
        
        So müsste es heißen:
        'programm -b -f datei.txt'
        
        Linuxer hatte Recht!!
        Danke für eure Mühe und Geduld!
        
        pq
        
        2011-01-21 15:53
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2011-01-21T14:51:51 la_dy82
        So müsste es heißen:
        'programm -b -f datei.txt'
        
        Linuxer hatte Recht!!
        
        und die doku auch! =)
        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

View all threads created 2011-01-20 21:59.