Script is waiting for return key (Allgemeines zu Perl)

[thread]16536[/thread]

Script is waiting for return key

Tags: perl5 skript return key Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+7 replies
Gast redeu

2011-07-18 12:27

Hello, i tried to find a solution for this but i couldn't find anything...

Following problem: I have a script, which reads data. The script works fine, but after starting it with the command line (using perl test.pl) it waits until i press the return key, after pressing the script is proceed.

This was no problem until now, because now i want to start more than one of these scripts with a special script which includes a timer.

This script starts several other scripts. The timer works fine, but it only calls the scripts if i press return...
E.g. the timer proceeds each script every 5 seconds, if i have 3 scripts to start and i press 5 times the return key, it proceeds all 3 scripts and after 5 seconds only the first 2 of them.

Is there any way that a script doesn't wait for the return key pressed? Is this the way to use parameter for the script? (because using "perl test.xml 1234" results in "Can't open 1234: No such file or directory.") Is there a way to deactivate this?

I hope you have some advice for me.
Last edited: 2011-07-18 12:31:00 +0200 (CEST)
- +2 replies
- GwenDragon
  
  2011-07-18 12:32
  
  User since
  2005-01-17
  14746 Artikel
  Admin1
  
  Well, in which manner does your program read data from commandline?
  Please show us some code. ;)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Gast redeux
    
    2011-07-18 12:47
    The script reads strings from textfile, which are the path of the directory.
    Then it calls this subroutine:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    sub executeScripts { foreach(@executables) { chdir("../$_/"); print "$_: ".`./script.pl`.""; } }
    
    in @executables are strings, like "test", "test2", which are the directories.
    The functionality works, but after starting any perl-script i have to press return to start the script (it seems the shell is waiting for parameters?)
    
    Because i never read from commandline in the script...
    
    Maybe there is a possibility to tell the shell, that there are NO parameters? like "perl test.pl -t" for example (don't know what -t is, but like this way)...
    
    modedit Editiert von GwenDragon: Please add PERL-Tags to code; see http://www.perl-community.de/bat/poard/markup_help
    Last edited: 2011-07-18 13:54:37 +0200 (CEST)
- +4 replies
- pq
  
  2011-07-18 13:09
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Hi,
  
  english questions are welcome here, but if you happen to speak german that would be preferred =)
  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
  - Gast redeux
    
    2011-07-18 13:28
    
    Ok passt! Mein englisch ist nicht grad gut, sry^^
    
    Also irgendwie wartet er immer auf Parameter oder so...
    
    Das Script selbst funktioniert, aber er wartet nach jedem Aufruf eines Scripts auf das Betätigen der Return-Taste, so als würde er die Eingabe von Parametern ermöglichen und wenn ich nur Return drücke, dann erkennt er das halt als "kein Parameter".
    
    Der Ablauf sieht in etwa so aus:
    
    alle 5 sekunden werden 3 skripts ausgeführt (über print "$_: ".`./csvExport.pl`;)
    
    Script startet: 5 sekunden timer
    Sek
    1: nix
    2: nix
    3: nix
    4: nix
    5: nix (die 3 skripts müssten ausgegeben werden)
    6: nix
    7: ich drücke 2x Return, er gibt die Rückgabewerte von den ersten 2 Skripts aus (3. fehlt noch)
    8: nix
    9: nix
    10:nix (die 3 skripts müssten ein weiteres mal ausgegeben werden)
    11:nix
    12: ich drücke 10x Return, er gibt den Rückgabewert vom 3. Skript aus und dann alle 3 (von sekunde 10 noch))
    13:nix
    14:nix
    15:3 skripts werden ausgegeben (scheinbar merkt er sich die return im voraus, also da noch 6 übrig sind...)
    16:nix
    17:nix
    18:nix
    19:nix
    20:3 skripts werden ausgegeben
    
    Also er gibt die Rückgabewerte der skripte nur aus wenn
    a) timer abläuft und
    b) ich enter gedrückt hab
    
    Wenn ich 5x enter drücke, werden die nächsten 5 skripte ausgegeben, wenn der timer läuft. Ist aber auch iwi net sinn der sache, da das skript ja eigentlich im Hintergrund laufen soll und ohne mein Tun die anderen Skripte aufrufen sollte...
    Last edited: 2011-07-18 13:31:41 +0200 (CEST)
    - renee
      
      2011-07-18 13:49
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Das ist im Moment immer noch schwierig, Dir zu helfen, weil Du (fast) keinen Code zeigst. Ist das csvExport.pl von Dir? Steht da irgendwo so etwas wie <STDIN> oder <> drin? Das würde nämlich auf Eingaben auf STDIN warten.
      
      Es wäre gut, wenn Du das Skript mal zeigen würdest...
      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/
    - kristian
      
      2011-07-19 08:05
      
      User since
      2005-04-14
      684 Artikel
      BenutzerIn
      
      Setze doch einfach mal $|++; in der zweiten Zeile deines Scriptes.

View all threads created 2011-07-18 12:27.