时间戳

首页 > 解决方案 > 跨范围访问 TCL 中的变量

tcl - 跨范围访问 TCL 中的变量

问题描述

我正在尝试学习 tcl 脚本。我的要求很简单。我需要在 for 循环中的第二个 if 条件中访问数组“args”。我尝试了下面的代码。由于“argv”范围仅限于第二个 if 条件，因此在 for 循环中无法访问

然后我尝试将 argv 声明为 global var -

数组集参数 {}

就在第一个 if 条件的 ned 之下。即使将“args”声明为全局数组也无济于事。

如何在下面的 for 循环中访问第二个 if contion 中的变量？

if {$argc != 4} {
puts "Insufficient arguments"
exit 1
}

if { $::argc > 0 } {
    set i 1
    foreach arg $::argv {
        puts "argument $i is $arg"
        set args(i) arg
        incr i
        }
} else {
    puts "no command line argument passed"
}

for {set x 0} { $x<2 } {incr x} {
    puts "Arrray: [lindex $args $x]"
}

标签： tcl

解决方案

对于您的原始代码，这是我得到的错误：

can't read "args": variable is array
    while executing
"lindex $args $x"
    ("for" body line 2)
    invoked from within
"for {set x 0} { $x<2 } {incr x} {
    puts "Arrray: [lindex $args $x]"
}"
    (file "main.tcl" line 20)

在 Tcl 中，数组不是列表。你必须写

for {set x 0} { $x<2 } {incr x} {
    puts "Arrray: $args($x)"
}

但后来我明白了：

can't read "args(0)": no such element in array
    while executing
"puts "Arrray: $args($x)""
    ("for" body line 2)
    invoked from within
"for {set x 0} { $x<2 } {incr x} {
    puts "Arrray: $args($x)"
}"
    (file "main.tcl" line 20)

那么这里有几个问题。您正在设置从索引 1 开始的数组元素，但从索引 0 开始读取它们。所以让我们在任何地方将其更正为 0：

    set i 0

但是您在$元素的设置中也缺少一些 's：

        set args($i) $arg

这样看起来更好。最终代码：

if {$argc != 4} {
puts "Insufficient arguments"
exit 1
}

if { $::argc > 0 } {
    set i 0
    foreach arg $::argv {
        puts "argument $i is $arg"
        set args($i) $arg
        incr i
        }
} else {
    puts "no command line argument passed"
}

for {set x 0} { $x<2 } {incr x} {
    puts "Arrray: $args($x)"
}

所以，范围并不是问题。你到了那里！

推荐阅读