Windows: Shell Befehle senden und Ausgabe entgegennehmen (Allgemeines zu Perl)

[thread]18782[/thread]

Windows: Shell Befehle senden und Ausgabe entgegennehmen

Tags: perl5 Shell Script Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+14 replies
MarkusH

2013-11-30 19:53
User since
2012-04-08
161 Artikel
BenutzerIn
Hallo,

ich möchte mit Perl unter Windows folgende Aufgabe realisieren:
1. Mit cd oder chdir in ein Verzeichnis wechseln
2. In diesem Verzeichnis eine Shell (sh) öffnen
3. Shell Befehle absetzen
4. Ausgabe der Shell entgegennehmen und in einem Skalar oder Array zur Weiterverarbeitung speichern.

Händisch sieht das wie folgt aus:
In dem gewählten Projektverzeichnis wird eine start.bat und eine read.sh kopiert. Die start.bat hat immer den gleichen Inhalt und startet lediglich das Shellscript read.sh.
start.bat:
Code: (dl )

SH read.sh
read.sh:
Code: (dl )

1 2

export LIB_ROOT="pfad_zur_library"; prt_wm -i cell.ce -r \* -o output.pqry -NP;
Hinweis:
Code: (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

usage: prt_wm [[-i <directory>] [-o <outfile>] [-r <root>] [-e <entity>] [-ANSRdPglLkjJwpasKtT#*]] i <wmdir> - the cell/component directory o <outfile> - the printout destination r <root> - name of a subtree to be printed e <entity> - name of single entity to print A - show all entities N - nice printout S - sorted printout R - list prototypes d - default details P - prototype references g - geometry l - locations (rpy) L - locations (orientation matrix) k - general kinematic data j - kinematic & joints data J - detailed joints data w - workpoints data p - paths data a - attributes s - sons K - key (for internal use) t - S+d+k+l+p+w+j+a (test mode) T - A+S+d+k+l+p+w+j+a (test mode) # - d+g+k * - d+g+l+k
Die Shell wird über das MKS-Toolkit bereitgestellt.

Ich habe heute den ganzenTag damit zugebracht, hier was auf die Beine zu stellen und vieles dazu gelesen.
system, exec, IPC::Open3 scheinen ungeeignet zu sein, bzw. unter Windows nicht zu funktionieren.

In Anlehnung an den Threadhabe ich folgendes ausgeführt.
D:\>perl -wle'system("sh.exe", "echo", "foo")'
echo: echo: not found

Alternativ habe ich die Möglichkeit, das Shellscript mit Perl zu erstellen, in einer Windows-Konsole die .bat auszuführen und die erstellten Ausgabedateien mit Perl weiter zu verarbeiten.

Oder kennt jemand eine Lösungsmöglichkeit?
$q =~ /(bb|[^b]{2})/
- bianca
  
  2013-11-30 19:59
  
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  
  Einen echten Parallelprozess kannst du ganz hervorragend mit Win32::Process starten, falls das gewünscht ist. Damit könnte man eine Batch starten, die ihre Ausgaben in eine Datei schreibt, welche das Perlscript wiederum einliest. Habe auch mal so ein Konstrukt gebaut, das klappt ganz hervorragend.
  
  Bei einfachen Sachen würden ansonsten wohl auch die Backticks funktionieren.
  http://stackoverflow.com/questions/10870591/perl-u...
  
  Generell wirst du dich damit abfinden müssen, das eine bidirektionale Kommunikation mit einem anderen Programm unter Windows nicht klappen wird. Daran habe ich auch monatelang gearbeitet und dazu gibt es hier etliche Threads von mir. IPC::Open3 und alles was es da sonst noch gibt würde also lediglich zum Starten einer Anwendung taugen aber nicht für mehr.
  10 print "Hallo"
  20 goto 10
- +4 replies
- MarkusH
  
  2013-12-15 21:24
  User since
  2012-04-08
  161 Artikel
  BenutzerIn
  Hallo,
  
  ich muß das hier nochmals rauskramen, da sich eine neue Konstellation ergeben hat.
  In einem ersten Schritt erzeuge ich das Shellscript mit den nötigen Befehlen. Die Antwort nach Ausführung des Shellscripts speichere ich wie folgt:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  open(my $PIPE, "ksh.exe $shellscript |") or die "Cannot open pipe: $!"; while (<$PIPE>) { @content = <$PIPE>; } close($PIPE);
  
  Jetzt würde ich mir aber doch gerne den ersten Schritt sparen und den Inhalt des Shellscripts beim Öffnen der Pipe verwenden.
  Geht das?
  $q =~ /(bb|[^b]{2})/
  - +3 replies
  - bianca
    
    2013-12-15 21:34
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    2013-12-15T20:24:07 MarkusH
    In einem ersten Schritt erzeuge ich das Shellscript mit den nötigen Befehlen.
    
    2013-12-15T20:24:07 MarkusH
    Jetzt würde ich mir aber doch gerne den ersten Schritt sparen
    
    Wie genau sieht denn dieser erste Schritt aus den du sparen willst?
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - MarkusH
      
      2013-12-15 22:12
      
      User since
      2012-04-08
      161 Artikel
      BenutzerIn
      
      Hmm, ich kann Dir nicht ganz folgen.
      Ich will keine Datei mit dem Shellscript erzeugen.
      $q =~ /(bb|[^b]{2})/
      - bianca
        
        2013-12-16 07:07
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        Ja, Moment. ksh.exe ist ja nicht die Windows Shell sondern eine Anwendung die eine Linux Shell unter Windows emuliert. Du willst also eine exe aufrufen und dieser ein mehrzeiliges Script (nämlich das aus msg #172616) als Parameter mitgeben, richtig?
        Wie würde der Aufruf denn in der Eingabeaufforderung von Windows aussehen?
        10 print "Hallo"
        20 goto 10
- +8 replies
- hlubenow
  
  2013-12-15 21:45
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  Klappt denn der Aufruf von "read.sh" unter Windows
  
  a) von Hand
  b) aus der start.bat heraus (ohne Perl)
  
  ???
  - +7 replies
  - MarkusH
    
    2013-12-15 22:09
    User since
    2012-04-08
    161 Artikel
    BenutzerIn
    
    Ja, das funktioniert.
    Hier nochmals der Inhalt des Shellscripts $shellscript:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8
    
    export LIB_ROOT="D:/library"; set -A cell1 for cell in ${cells[@]} do prt_wm -i $cell -r \* -Na done exit 0
    
    Gebe ich den Dateinamen des Shellscripts beim Öffnen der Pipe mit an, kommen nach einiger Wartezeit die Daten herein.
    Ich möchte jetzt nur gerne den Dateiinhalt an die Pipe mit übergeben, denn damit spare ich mir das Erzeugen und Löschen des Shellscripts.
    $q =~ /(bb|[^b]{2})/
    - +6 replies
    - hlubenow
      
      2013-12-16 20:43
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      Vielleicht könntest Du die Schleife statt im Shell-Skript in Perl machen und nur den "prt_wm"-Befehl als System-Call absetzen?
      - +5 replies
      - bianca
        
        2013-12-17 10:24
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        2013-12-16T19:43:16 hlubenow
        Vielleicht könntest Du die Schleife statt im Shell-Skript in Perl machen und nur den "prt_wm"-Befehl als System-Call absetzen?
        
        Hatte ich auch schon überlegt. Würde sogar einen Schritt weiter gehen. Kann man das was prt_wm macht nicht auch in Perl machen? Was macht das denn?
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        MarkusH
        
        2013-12-17 11:40
        
        User since
        2012-04-08
        161 Artikel
        BenutzerIn
        
        2013-12-16T19:43:16 hlubenow
        Vielleicht könntest Du die Schleife statt im Shell-Skript in Perl machen und nur den "prt_wm"-Befehl als System-Call absetzen?
        
        Das hatte ich schon probiert. Es kommen dabei aber nur Fehlermeldung, da die Bibliothek nicht gefunden wird. LIB_ROOT ist hierbei nicht gesetzt.
        Ich habe auch shon den ganzen Inhalt des Skripts als Variable mit übergeben, was auch nicht klappt.
        
        2013-12-17T09:24:57 bianca
        Hatte ich auch schon überlegt. Würde sogar einen Schritt weiter gehen. Kann man das was prt_wm macht nicht auch in Perl machen? Was macht das denn?
        
        Nicht wirklich! prt_wm liest aus einer .wm Datei (die durchaus 50-100MB groß sein kann) diverse informationen aus. prt_wm ist Teil des Simulationsprogramms ROBCAD von Tecnomatix. Ein schönes Video gibt es hier
        $q =~ /(bb|[^b]{2})/
        
        bianca
        
        2013-12-17 13:08
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        2013-12-17T10:40:51 MarkusH
        Ich habe auch shon den ganzen Inhalt des Skripts als Variable mit übergeben, was auch nicht klappt.
        
        Dann sehe ich mit Perl auch keine Chance. Das Kommando in einer einzige Zeile in der Windows Shell absetzen zu können ist aus meiner Sicht Voraussetzung.
        Oder eben die ganze Aufgabe des prt_wm nachempfinden in einem Perl Script. Gibt es für dieses Robcad kein Perl Modul?
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        hlubenow
        
        2013-12-17 22:22
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        2013-12-17T10:40:51 MarkusH
        2013-12-16T19:43:16 hlubenow
        Vielleicht könntest Du die Schleife statt im Shell-Skript in Perl machen und nur den "prt_wm"-Befehl als System-Call absetzen?
        
        Das hatte ich schon probiert. Es kommen dabei aber nur Fehlermeldung, da die Bibliothek nicht gefunden wird. LIB_ROOT ist hierbei nicht gesetzt.
        
        Ich dachte an sowas:
        
        Code (perl): (dl )
        
        my @a = `export LIB_ROOT="D:/library";prt_wm ...`;
        
        Raubtier
        
        2013-12-18 10:19
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        2013-12-17T21:22:15 hlubenow
        Ich dachte an sowas:
        
        Code (perl): (dl )
        
        my @a = `export LIB_ROOT="D:/library";prt_wm ...`;
        
        Naja, unter Windows wird das so wohl nicht gehen - der Befehl zum Setzen von Umgebungsvariablen heißt "set". Was man aber viel einfacher machen kann: man setzt die Umgebungsvariablen einfach in Perl! Das geht, denn die Umgebung wird ja an Kinder vererbt.
        
        D.h. ich würde vorschlagen:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        { local $ENV{LIB_ROOT} = "..."; system(...) oder qx(...) }

View all threads created 2013-11-30 19:53.