Question

我有一个来自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

Answer 1

期望使用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。

如何在expect脚本中进行索引解析

1 个答案: