Skript aus dem Skript starten?! (Allgemeines zu Perl)

[thread]13310[/thread]

Skript aus dem Skript starten?!

Leser: 15

Articles: hide open all | hide show old branches

+7 replies
yasukatakaya

2009-04-01 10:33
User since
2007-05-31
68 Artikel
BenutzerIn
Hallo mal wieder und zwar versuche ich schon einige Zeit einen Skript aus einem Skript zu starten und es klappt nur beim ersten Mal bzw. gar nicht, ich wollte es in einer Schleife laufen lassen und nach einer bestimmten Zeit immer wieder aufrufen, nun ein BSP.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

use strict; my $i=0; while ($i==0) { #das läuft gar nicht open(HANDLE,"|test.pl"); #das läuft nur beim ersten durchlauf, dann gar nicht mehr require "test.pl"; print "WIEDER HIER\n"; sleep(5); }
Hab ihr Ideen warum das so ist, warum der nur ein Mal mit requiere aufruft und bei open gar nicht?
Es läuft auf einem Unix-System!

Gruß
yasukatakaya
- Linuxer
  
  2009-04-01 10:39
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Schau Dir system oder qx// an, die sind dazu gedacht, externe Programme auszuführen.
  
  require bindet "Bibliotheken" (Module) ein, und dieses nur einmal, weil es keinen Sinn ergibt, ein Modul mehrfach einzubinden.
  
  perldoc -f system
  perldoc -f qx
  
  Achte in der perldoc -f system auch auf das Wort Backticks...
  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
- pq
  
  2009-04-01 10:46
  User since
  2003-08-04
  12208 Artikel
  Admin1
  Quote
  require VERSION
  require EXPR
  require Demands a version of Perl specified by VERSION, or demands some semantics specified by EXPR or by $_ if EXPR is not supplied.
  
  VERSION [...]
  
  Otherwise, "require" demands that a library file be included if it hasn’t already been included.
  
  also require ist dazu da, eine bibliothek einzubinden, und das nur einmal, denn eine bibliothek zweimal einzubinden ist meist sinnfrei, da sie ja nur funktionen breitstellt.
  
  das open mit der pipe wundert mich etwas, da man eine pipe in der regel nur benutzt, wenn man dem skript irgendwas senden will bzw. den output haben will, aber du machst gar nichts mit dem handle.
  am einfachsten für dich wäre vermutlich ein
  
  Code (perl): (dl )
  
  my $output = qx{test.pl};
  
  wenn du den output haben willst.
  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
  - +3 replies
  - yasukatakaya
    
    2009-04-01 11:56
    User since
    2007-05-31
    68 Artikel
    BenutzerIn
    
    So danke vielmals, hab das jetzt so gemacht:
    
    Code: (dl )
    
    qx(perl test.pl);
    
    Gruß
    - +2 replies
    - nepos
      
      2009-04-01 14:06
      
      User since
      2005-08-17
      1420 Artikel
      BenutzerIn
      
      2009-04-01T09:56:21 yasukatakaya
      So danke vielmals, hab das jetzt so gemacht:
      
      Code: (dl )
      
      qx(perl test.pl);
      
      Gruß
      
      Wenn dein test.pl eine korrekte erste Zeile (Shebang) hat, also #!/usr/bin/perl, dann brauchst unter Unix nicht mal explizit perl mit anzugeben. Ach ja und wenn schon, dann doch bitte mit komplettem Pfad!
      - renee
        
        2009-04-01 14:15
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        2009-04-01T12:06:00 nepos
        2009-04-01T09:56:21 yasukatakaya
        So danke vielmals, hab das jetzt so gemacht:
        
        Code: (dl )
        
        qx(perl test.pl);
        
        Gruß
        
        Wenn dein test.pl eine korrekte erste Zeile (Shebang) hat, also #!/usr/bin/perl, dann brauchst unter Unix nicht mal explizit perl mit anzugeben. Ach ja und wenn schon, dann doch bitte mit komplettem Pfad!
        
        Dann muss das Skript auch die entsprechenden Rechte haben (ausführbar sein)...
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
- betterworld
  
  2009-04-01 14:18
  
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  
  Wenn Du es so haben willst, wie require es macht, aber nicht nur einmal, dann kannst du auch 'do "script.pl"' benutzen. Dann brauchst Du weder system noch open noch Backticks.
  
  Im Allgemeinen ist es dann aber eleganter, ein Modul zu erstellen und da drin Subroutinen. Dann kannst Du das Modul einmal laden und die Subroutinen mehrfach aufrufen.
  Lieblingsmodule: IPC::System::Simple, Path::Class

View all threads created 2009-04-01 10:33.