如何在期望脚本中进行索引解析答案

【问题标题】：How to do index parsing in expect script如何在期望脚本中进行索引解析
【发布时间】：2018-07-09 17:20:30
【问题描述】：

我有一个来自 perl 的代码，我需要将其转换为 .expect 脚本以检查 -T 是否存在，然后使用下一个作为超时。基本上检查 arg 计数，看看 -T 是否是其中之一.

Perl 代码：

# check command line against valid arguments
%opt=();
unless( getopts('T:', \%opt) )
    {
      print("$progname : Illegal command line arguments\n");
      exit(1);
    } 
$commandTimeout=$opt{T} if $opt{T};
$inputCommand = join(" ", @ARGV); # convert arguments into one (long) string

【问题讨论】：

你可能想使用来自 tcllib 的cmdline package

标签： perl scripting expect

【解决方案1】：

Expect 使用 Tcl，它也是一种通用编程语言。您可以自行浏览命令行参数。

[user@host] # cat foo.tcl
for {set i 0} {$i < [llength $argv]} {incr i} {
    puts "argv\[$i]=[lindex $argv $i]"
}

foreach arg $argv {
    puts "$arg"
}
[user@host] # tclsh foo.tcl hello world
argv[0]=hello
argv[1]=world
hello
world
[user@host] #

有关详细信息，请参阅Tcl's doc。

【讨论】：