DOS-Fenster mit Perl öffnen (gelöst) (Allgemeines zu Perl)

[thread]17842[/thread]

DOS-Fenster mit Perl öffnen [gelöst]

Tags: perl5 dos-windows Ähnliche Threads

Leser: 32

Articles: hide open all | hide show old branches

+10 replies
giordano

2012-10-20 21:46

User since
2011-04-29
16 Artikel
BenutzerIn

Hallo,
Ich würde gerne mit einem Klick auf ein Perl-File (dos.pl) ein DOS-Fenster öffnen mit gewünschten Verzeichnis und anschliessend ein Programm laufen lassen. Z.B.:
open dos-windows;
e;
cd /x/y/z;
pdflatex x.tex

Die Idee: Ich würde gerne mit einem Klick auf das gewünschte Verzeichnis und z.B.: das Latex Programm starten (oder irgend etwas anderes). Das DOS-Fenster darf aber nicht schliessen, da ich allfällige Fehlermeldungen anschauchen möchte.

Kann mir jemdand einen Hinweis geben?
Besten Dank.
giordano
- bianca
  
  2012-10-21 08:55
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Leg doch eine Batchdatei an die das Perlprogramm startet.
  Aufruf mithilfe von start und dem Parameter /wait verhindert, dass sich das DOS-Fenster schließt.
  Siehe auch im DOS-Fenster start /?
  
  Also etwa so:
  
  Code: (dl )
  
  1 2 3 4
  
  @echo off e: cd x\y\z start /b /wait "pdflatex x.tex"
  
  Allerdings verwirrt mich die Fragestellung. Was genau willst du nun starten? dos.pl oder pdflatex?
  10 print "Hallo"
  20 goto 10
- FIFO
  
  2012-10-21 08:56
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Dafür brauchst Du Perl nicht. Wenn Du nur eine Konsole öffnen willst, die sich nicht sofort schließt, reicht vielleicht auch ein kleines Batchfile, foo.cmd, das Du per Doppelklick starten kannst:
  
  Code: (dl )
  
  cmd /K "e:&&cd \x\y\z&&pdflatex x.tex"
  
  Funktioniert auch, falls Leerzeichen im Pfad stehen.
  
  Das kannst Du auch natürlich von Perl aus starten:
  
  Code (perl): (dl )
  
  system('cmd.exe', '/K', q("e:&&cd \x\y\z&&pdflatex x.tex"));
  
  Alternativ: Ende auf Tastendruck:
  
  Code: (dl )
  
  1 2 3 4 5 6
  
  @echo off e: cd /x/y/z pdflatex x.tex pause REM oder: pause > NUL (unterdrückt Tastendruckhinweis)
  
  Alles zu cmd findest Du bei MSDN
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
- +2 replies
- lichtkind
  
  2012-10-21 17:22
  
  User since
  2004-03-22
  5730 Artikel
  ModeratorIn + EditorIn
  
  die andere frage ist, ob das nur starten willst oder programm noch weiterlaufen soll, also ob du fork oder ähnliches brauchst
  mein zeug:, Leute
  
  Es beginnt immer mit einer Entscheidung.
  - FIFO
    
    2012-10-21 22:05
    
    User since
    2005-06-01
    469 Artikel
    BenutzerIn
    
    Wenn auf die Rückgabe nicht gewartet werden soll, das DOS-Fenster des externen Prozesses trotzdem offen bleiben soll:
    
    system(1, 'cmd', '/K', "e:&&cd /x/y/z&&pdflatex x.tex");
    
    aus perlport: system(1, @args) spawns an external process and immediately returns its process designator
    Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
- +2 replies
- GUIfreund
  
  2012-10-22 11:27
  
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  
  Ich habe dafür weder ein Perlskript noch eine Batchdatei, sondern eine Verknüpfung, die als Icon auf dem Desktop steht. Der Befehl darin lautet
  %SystemRoot%\system32\cmd.exe /k chcp 1252.
  Das chcp 1252 habe ich angefügt, damit ich keine Probleme mit Umlauten habe. Dort könntest du noch deinen Aufruf von pdflatex anfügen.
  Gruß
  GUIfreund
  - FIFO
    
    2012-10-22 22:07
    
    User since
    2005-06-01
    469 Artikel
    BenutzerIn
    
    ... aber dran denken, das chcp 1252 nur funktioniert, wenn als Konsolen-Schriftart ein Unicode-Font (Lucida Console oder Consolas) gewählt ist.
    
    btw. öffnet Dein Befehl nur eine Konsole und führt sonst nix aus :)
    Last edited: 2012-10-22 22:08:35 +0200 (CEST)
    Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
- +3 replies
- GwenDragon
  
  2012-10-22 11:45
  User since
  2005-01-17
  14895 Artikel
  Admin1
  beispielcode:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  #!perl my $dos_commands = <<TXT; X: cd /tmp notepad blah.txt TXT $dos_commands = join '&&', split/\n/, $dos_commands; warn "Executing: cmd.exe /K $dos_commands"; system ("cmd.exe /K $dos_commands");
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Raubtier
    
    2012-10-22 12:03
    User since
    2012-05-04
    1083 Artikel
    BenutzerIn
    
    Noch ein Tipp:
    
    Code: (dl )
    
    1 2
    
    X: cd \dir\a\b
    
    kann man zu
    cd /d X:\dir\a\b
    zusammenfassen.
  - giordano
    
    2013-01-24 09:19
    
    User since
    2011-04-29
    16 Artikel
    BenutzerIn
    
    Besten Dank!
    Das ist es.

View all threads created 2012-10-20 21:46.