如何将数组从Perl传递到Expect脚本?

时间:2016-02-15 23:58:29

标签: arrays perl expect

我试图删除我的程序依赖于从文件中读取信息然后解释该信息。我已经创建了一个Perl命令库,可以按需生成必要的信息。我遇到的一个问题是,Perl有时会调用expect脚本,而expect脚本目前设计用于接收文件路径,打开该文件,读入信息然后使用该信息。

相反,我想将Perl数组传递给包含所有信息的expect脚本。这就是我的问题:我一直在努力弄清楚期望脚本如何将数组作为参数处理并将该参数转换为有用的东西。

Perl示例:

my $expectCmd = "expect.sh 300 $vmIp $vmPort $pass @configInfo";
system($expectCmd);

期待剧本:

set ip [lindex $argv 1]
set port [lindex $argv 2]
set pass [lindex $argv 3]

此时我不知道如何读取@configInfo数组并使用它。我尝试了各种upvar,数组,for循环,foreach循环,乞讨,恳求和贿赂的方法。到目前为止,没有任何工作。

最终目标是将@configInfo数组逐行发送到文件。基本上,我希望数组的每个索引都是文件中的一行 - 如果它是Perl我只会:

foreach my $line (@configInfo) {
    print FILE $line;
}

如果有人有将数组传递到expect脚本然后解压缩其内容以供使用的经验,我将非常感谢您的回复。非常感谢!

1 个答案:

答案 0 :(得分:2)

您应该使用system的多参数版本:

system('expect.sh', 300, $vmIp, $vmPort, $pass, @configInfo);

期待,你会写(最近期待)

set config_info [lassign $argv num ip port pass]

如果您的期望不了解lassign命令,请执行此操作

set num  [lindex $argv 0]
set ip   [lindex $argv 1]
set port [lindex $argv 2]
set pass [lindex $argv 3]
set config_info [lrange $argv 4 end]

满足您的最终目标

set fh [open some.file.name w]
puts $fh [join $config_info \n]
close $fh