Ein Skript, das auf <STDIN> wartet mit einem anderen Skript aufrufen? (gelöst) (Allgemeines zu Perl)

[thread]15175[/thread]

Ein Skript, das auf <STDIN> wartet mit einem anderen Skript aufrufen? [gelöst]

Leser: 21

Articles: hide open all | hide show old branches

Teilbaum:
forken (7 Artikel) 2010-06-23 17:59

+16 replies
Sven_123

2010-06-22 16:44
User since
2010-06-01
120 Artikel
BenutzerIn
Wenn ich das einfach so tu, wartet das aufgerufene Skript natürlich auf meine Eingabe. Das würde ich allerdings auch gerne vom aufrufenden Skript erledigen lassen...geht das?

Als Beispiel:
test
Code (perl): (dl )

1 2

$y=10-7; system "./extsub\n";
extsub
Code (perl): (dl )

1 2

chomp($x=<STDIN>); print $x**2."\n";
Wobei ich die 3 ($y) automatisch übergeben möchte.
Ich möchte dabei allerdings nur in "test", also dem ausführenden Script rumwerkeln, also v.a. nicht <STDIN> durch $ARGV[] ersetzen. Ist das mit irgendeinem kurzen Befehl machbar, oder bräuchte es nen fork, oder so, wo ich dann vom parent-Prozess eine Eingabe mach. In letzterem Fall wüsste ich allerdings nicht, wie ich was in STDIN schreiben kann, bzw. ist mein STDIN doch die Tastatur, wenn im ausgeführten Programm nichts anderes definiert ist...oder? Dann fiele das wohl flach...
- +3 replies
- pq
  
  2010-06-22 16:57
  User since
  2003-08-04
  12208 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4
  
  use IPC::Run qw/ run timeout /; my $in = "foo"; # das was extsub als STDIN bekommen soll run ["./extsub"], \$in, \my $out, \my $err, timeout( 10 ) or die "error: $?"; print $out;
  
  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
  - +2 replies
  - Sven_123
    
    2010-06-22 16:58
    
    User since
    2010-06-01
    120 Artikel
    BenutzerIn
    
    Danke - hatte kein Modul erwartet, das kam mir eher grundlegend vor.
    - pq
      
      2010-06-22 17:06
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      geht einfach ohne modul, wenn man nur entweder von dem aufgerufenen prozess lesen oder an ihn schreiben will. beides gleichzeitig ist komplizierter, und sowas geht halt mit IPC::Open3 oder IPC::Run, wobei IPC::Run neuer ist und etwas mehr möglichkeiten bietet.
      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
- +12 replies
- murphy
  
  2010-06-22 16:58
  
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  
  Sowas macht man einfach mittels open '|-', ..., oder, wenn man nicht nur die Ein- oder Ausgabe sondern zum Beispiel gleich beides umlenken muss, mit IPC::Open2 oder IPC::Open3.
  
  Im Übrigen sei angemerkt, dass das Starten eines externen Programmes unter *nix in jedem Fall ein Forken erfordert. Es ist schlichtweg unmöglich aus dem Userspace heraus auf irgendeine andere Weise als durch Forken einen neuen Prozess zu erzeugen.
  When C++ is your hammer, every problem looks like your thumb.
  - +3 replies
  - Sven_123
    
    2010-06-22 17:06
    
    User since
    2010-06-01
    120 Artikel
    BenutzerIn
    
    Danke dir auch - mit den pipes müsste ich das auch von der shell können (oder?), probier ich gleich mal aus.
    - +2 replies
    - pq
      
      2010-06-22 17:10
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      achso, du willst gar nicht den output von extsub lesen. dachte, weil dieses ein print macht, möchtest du den output auch haben.
      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
      - Sven_123
        
        2010-06-22 17:12
        
        User since
        2010-06-01
        120 Artikel
        BenutzerIn
        
        Nein, will nur ein Programm mehrfach mit unterschiedlichen Inputs aufrufen und nicht jedesmal selbst suchen und tippen...*g
  - gabimuc
    
    2010-06-23 08:57
    
    Subtree with 8 replies: forken
    
    User since
    2010-06-21
    33 Artikel
    BenutzerIn
    
    2010-06-22T14:58:34 murphy
    Im Übrigen sei angemerkt, dass das Starten eines externen Programmes unter *nix in jedem Fall ein Forken erfordert. Es ist schlichtweg unmöglich aus dem Userspace heraus auf irgendeine andere Weise als durch Forken einen neuen Prozess zu erzeugen.
    
    der erste satz stimmt so nicht.
    
    mit exec startet man ein programm aus einem prozess heraus, ohne einen neuen prozess zu generieren.
    
    exec [-cl] [-a name] [command [arguments]]
    If command is specified, it replaces the shell. No new process is created.
    
    z.B (sorry, ausgabe etwas verschoben. die blanks werden anscheinend getrimmt):
    
    Ausgangsbasis: neue login shell aufmachen
    
    [root@hopfen ~]# bash -l [root@hopfen ~]# ps auxf root 3148 0.0 0.0 7088 1064 ? Ss Jun02 0:15 /usr/sbin/sshd root 16200 0.0 0.0 10072 2952 ? Ss 07:09 0:00 \_ sshd: root@pts/1 root 16202 0.0 0.0 4672 1512 pts/1 Ss 07:09 0:00 | \_ -bash root 26517 0.0 0.0 4368 948 pts/1 R+ 08:25 0:00 | \_ ps auxf root 24381 0.0 0.0 10072 2920 ? Ss 08:21 0:00 \_ sshd: root@pts/0 root 24383 0.0 0.0 4672 1520 pts/0 Ss 08:21 0:00 \_ -bash root 26499 0.5 0.0 4672 1456 pts/0 S+ 08:25 0:00 \_ bash -l
    
    1. mit fork
    
    [root@hopfen ~]# vi [root@hopfen ~]# ps auxf root 3148 0.0 0.0 7088 1064 ? Ss Jun02 0:15 /usr/sbin/sshd root 16200 0.0 0.0 10072 2952 ? Ss 07:09 0:00 \_ sshd: root@pts/1 root 16202 0.0 0.0 4672 1512 pts/1 Ss 07:09 0:00 | \_ -bash root 26867 0.0 0.0 4368 956 pts/1 R+ 08:26 0:00 | \_ ps auxf root 24381 0.0 0.0 10072 2920 ? Ss 08:21 0:00 \_ sshd: root@pts/0 root 24383 0.0 0.0 4672 1520 pts/0 Ss 08:21 0:00 \_ -bash root 26499 0.0 0.0 4672 1464 pts/0 S 08:25 0:00 \_ bash -l root 26599 0.1 0.0 9600 2780 pts/0 S+ 08:25 0:00 \_ /usr/bin/vim
    
    nach :q in vi
    
    [root@hopfen ~]# ps auxf root 3148 0.0 0.0 7088 1064 ? Ss Jun02 0:15 /usr/sbin/sshd root 16200 0.0 0.0 10072 2952 ? Ss 07:09 0:00 \_ sshd: root@pts/1 root 16202 0.0 0.0 4672 1512 pts/1 Ss 07:09 0:00 | \_ -bash root 27694 0.0 0.0 4368 972 pts/1 R+ 08:27 0:00 | \_ ps auxf root 24381 0.0 0.0 10072 2920 ? Ss 08:21 0:00 \_ sshd: root@pts/0 root 24383 0.0 0.0 4672 1520 pts/0 Ss 08:21 0:00 \_ -bash root 26499 0.0 0.0 4672 1464 pts/0 S+ 08:25 0:00 \_ bash -l
    
    2. mit exec
    
    [root@hopfen ~]# exec vi [root@hopfen ~]# ps auxf root 3148 0.0 0.0 7088 1064 ? Ss Jun02 0:15 /usr/sbin/sshd root 16200 0.0 0.0 10072 2952 ? Ss 07:09 0:00 \_ sshd: root@pts/1 root 16202 0.0 0.0 4672 1512 pts/1 Ss 07:09 0:00 | \_ -bash root 28258 0.0 0.0 4368 948 pts/1 R+ 08:28 0:00 | \_ ps auxf root 24381 0.0 0.0 10072 2920 ? Ss 08:21 0:00 \_ sshd: root@pts/0 root 24383 0.0 0.0 4672 1520 pts/0 Ss 08:21 0:00 \_ -bash root 26499 0.0 0.0 4788 1220 pts/0 S+ 08:25 0:00 \_ vi
    
    nach :q in vi
    
    [root@hopfen ~]# ps auxf root 3148 0.0 0.0 7088 1064 ? Ss Jun02 0:15 /usr/sbin/sshd root 16200 0.0 0.0 10072 2952 ? Ss 07:09 0:00 \_ sshd: root@pts/1 root 16202 0.0 0.0 4672 1512 pts/1 Ss 07:09 0:00 | \_ -bash root 28652 0.0 0.0 4368 972 pts/1 R+ 08:29 0:00 | \_ ps auxf root 24381 0.0 0.0 10072 2920 ? Ss 08:21 0:00 \_ sshd: root@pts/0 root 24383 0.0 0.0 4672 1520 pts/0 Ss+ 08:21 0:00 \_ -bash
    
    mod-edit pq: teilbaum "forken"
    Last edited: 2010-06-23 16:26:37 +0200 (CEST)
    root is a state of mind - k0resh

View all threads created 2010-06-22 16:44.