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

Question

我正在尝试消除我的程序对从文件中读取信息然后解释该信息的依赖性。我创建了一个 Perl 命令库，可以按需生成必要的信息。我遇到的一个问题是 Perl 有时会调用 expect 脚本，而 expect 脚本当前设计为获取文件路径、打开该文件、读取信息然后使用该信息。

相反，我想将一个 Perl 数组传递给包含所有信息的 expect 脚本。这就是我的问题：我一直在努力弄清楚 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、array set、for-loops、foreach loops、乞讨、恳求和贿赂的各种方法我都试过了。到目前为止没有任何效果。

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

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

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

Answer 1

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

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

在 expect 中，你会写（最近的 expect）

set config_info [lassign $argv num ip port pass]

如果您的 expect 不知道 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

How do I pass an array from Perl to an Expect script?