CMD-Operationen durch Perl

Question

Der Versuch, einige Befehle über Perl auszuführen. Einer der Befehle erfordert, die Eingabetaste in der Mitte zu drücken, um zu vervollständigen! Ich habe zuerst versucht mit Java, aber versäumt, dies zu tun, ich dachte, es ist in Perl möglich, aber nicht durchkommen!

$dir = "C:\\bip_autochain\\scripts"; 
chdir($dir) or die("Can't change to dir \n"); 

system("lcm_cli.bat -lcmproperty C:\\pl\\LCMBiar_Import.property"); 

sleep(5); 
system("\n"); 

Der hervorgehobene Systembefehl muss nach einiger Zeit, sagen wir 5 Sekunden, die Eingabetaste drücken. Mein Code dient nicht diesem Zweck.

Answer 1

Wenn Sie Daten von Ihrem Perl-Skript an einen Befehl senden möchten, der in einem Subprozess gestartet wurde, müssen Sie beim Starten ein Programm in das Programm leiten. Dann warten Sie die erforderliche Zeit und senden Sie die Daten mit print (oder printf).

Es gibt eine große Einschränkung. Wenn das externe Programm das Konsolen-Terminal direkt zur Eingabe öffnet und nicht von stdin liest (d. H. Um ein Passwort anzufordern), können Sie die Daten möglicherweise nicht an das Programm senden.

Für den Standard-Fall, in dem das Programm von stdin liest:

$dir = "C:\\bip_autochain\\scripts"; 
chdir($dir) or die("Can't change to dir \n"); 

open(CMD, "|lcm_cli.bat -lcmproperty C:\\pl\\LCMBiar_Import.property"); 
#  ^
#   vertical bar, aka "pipe" symbol 

sleep(5); 
print CMD "\n"; 
... 
close(CMD); -- when you are done sending data 

Das Rohr Symbol am Anfang des Befehls ist eine spezielle Form der open dass der CMD Dateihandle stdin auf den Befehl des verrohrt einrichtet. Dies wird beschrieben in the documentation