Aufruf auf andere Datei umleiten (Allgemeines zu Perl)

[thread]17396[/thread]

Aufruf auf andere Datei umleiten

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+3 replies
Gast Hans Meiser

2012-05-07 10:51

Hallo,

ich habe eine perl Programm welches bei Aufruf bestimmte Dinge erledigt.
Nun würde ich gerne etwas ändern.
Bei Benutzung eines bestimmten Argumentes z.B. -spezial soll das Perlprogramm ein anderes Programm starten und die Eingaben an dieses leiten.
Dazu kommt als Schwierigkeit dass es auch die Ausgaben des anderen Programmes auffangen und per stdout ausgeben soll. So dass mein Programm praktisch als Mittelsmann fungiert und die Aus- und Eingaben jeweils hin und her sendet. Dabei handelt es sich aber leider nicht nur um eine einzelne Aus- oder Eingabe (sonst wäre es ja leicht) sondern es können beliebig oft Daten (kurze Texte) hin und her gesendet werden.

Ist so etwas mit Perl irgendwie möglich? Mir fehlt da komplett der Ansatz.
Das mein Programm als Mittelsmann fungiert ist auch keine Vorraussetzung, ich könnte auch damit leben den Aufruf komplett irgendwie auf das andere Programm umzuleiten und mein Programm zu beenden so dass sich nur noch der Aufrufer und das andere Programm "unterhalten".

Bin für jeden Tipp dankbar.

Danke,
Hans
Last edited: 2012-05-07 10:55:16 +0200 (CEST)
- topeg
  
  2012-05-07 11:19
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Grundsätzliche ist es möglich andere Programme zu nutzen. Das nennt man IPC "Inter Process Communication"
  Es ist wichtig zu wissen wie man mit dem Programm kommunizieren kann.
  Da gibt es:
  
  STDIN/STDOUT
  Datei/FiFo
  Socket
  
  Jede Form der Kommunikation muss anders behandelt werden.
  Siehe dazu perlipc
- Linuxer
  
  2012-05-07 11:32
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Mit Getopt::Long kann man z.B. die Optionen verarbeiten und entsprechend reagieren.
  Mit exec() lassen sich externe Programme aufrufen, wobei gleichzeitig das Skript beendet wird.
  
  Schema (ungetestet):
  
  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
  
  #! /usr/bin/perl use strict; use warnings; use Getopt::Long; ### MAIN my $call_external_program = 0; GetOptions( 'extern' => \$call_external_program, ) or exit 127; if ( $call_external_program ) { # if option was set to execute external program, do that and terminate this script # provide rest of @ARGV to the external program exec( "external_program", @ARGV ); } ### else do some other stuff
  
  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!

View all threads created 2012-05-07 10:51.