対話型スクリプトにパラメタをプログラム的に渡す

Question

私たちには対話型スクリプト（スクリプト1）があり、IPアドレスを求めて実行プロセスを続行します。スクリプト1はスクリプト2から呼び出されます。 IPに渡すIPアドレスを知っているので、手動による介入が不要なようにスクリプトに自動で割り当てます。

Expectモジュールを調べました。しかし、私はPRODUCTIONサーバーにそのモジュールをインストールすることはできません。

誰かがこの問題を克服する方法を提案できますか？

Answer 1

は

#script2.pl 

use strict; 
use warnings; 

use Getopt::Long; 

GetOptions (
"ipAddress=s" => \$ip, 
) or die("Enter IP address"); 

my $cmd = "perl script1.pl --ip=$ip"; 
system($cmd); 

、これを試してみてください。

#script1.pl 

use strict; 
use warnings; 

use Getopt::Long; 
GetOptions (
"ip=s" => \$ip, 
) or die("Enter IP address"); 

print "IP address is $ip"; 

このように実行します。あなたが直接SCRIPT1を実行したい場合は

perl script2.pl --ipAddress=10.11.12.13 

、それはインタラクティブなものではなく、パラメータを取るように、このよう

perl script1.pl --ip=10.11.12.13