exec in Schleife (Allgemeines zu Perl)

[thread]13303[/thread]

exec in Schleife

Leser: 11

Articles: hide open all | hide show old branches

+6 replies
Gast KaSto

2009-03-31 12:45
Hallo,

ich möchte gerne ein Perlskript aus einem anderen in einer Schleife aufrufen, das sieht wie folgt aus:
Code: (dl )

1 2 3

foreach $name (@names) { exec("./skript.pl -d $name") or print STDERR "couldn't exec skript.pl: $!"; }
Problem ist nun, dass dies nur für das erste $name aus @names ausgeführt wird. @names habe ich mir schon ausgeben lassen, da sind im Testbeispiel fünf Elemente enthalten.

Wie kann ich das so ausführen, wie ich es gerne hätte?

Grüße
KaSto
- +5 replies
- Linuxer
  
  2009-03-31 12:48
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Hi,
  
  hast Du Dir mal die Doku durchgelesen, was exec eigentlich genau macht?
  perldoc -f exec
  
  Quote
  The exec function executes a system command and never returns-- use system instead of exec if you want it to return. ...
  
  Bitte lies in der perldoc zu system nach, wie man es korrekt auf Erfolg kontrolliert.
  perldoc -f system
  
  Gruss,
  Linuxer
  Last edited: 2009-03-31 12:49:49 +0200 (CEST)
  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!
  - +4 replies
  - Gast KaSto
    
    2009-03-31 12:53
    
    Super, das reicht schon.
    
    Danke von mir.
    - +3 replies
    - Taulmarill
      
      2009-03-31 13:49
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Bedenke, dass system den Rückgabewert des aufgerufenen Programms zurück gibt. Dieser ist bei Unixprogrammen i.d.R. 0 wenn keine Fehler aufgetreten sind. Daher funktioniert die Fehlerbehandlung mit einem einfachen or nicht so wie erwartet. Hier das Beispiel aus der Perldoc:
      
      Code (perl): (dl )
      
      1 2
      
      @args = ("command", "arg1", "arg2"); system(@args) == 0 or die "system @args failed: $?";
      
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
      - Linuxer
        
        2009-03-31 13:54
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        *g* deswegen schrieb ich, dass bitte in der perldoc -f system nachgelesen werden sollte, und hatte die perldoc verlinkt ;o)))
        
        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!
      - Gast KaSto
        
        2009-03-31 14:28
        
        Vielen Dank für den Hinweis, ich kämpfe im Moment noch mit einer kleinen (gefühlten) Anomalie und tauche gerade durch die Doku.
        
        Grüße
        KaSto

View all threads created 2009-03-31 12:45.