小编Zuc*_*erg的帖子

我试图动态填充数组,而不是通过运行如下所示的计数器手动设置它:

set all_list  { <my list>}
set num_pc_a_b 10

for {set i 0 ;set j 0 ; set k 0} {$j < $num_pc_a_b} {incr j; incr i ;incr k} {
    array set link_map  {[lindex $all_list $i] $j $k 0 }
}

并希望访问如下变量:

foreach {key value value1 value2} [array get link_map] {
    puts "key is $key"
    puts "value is $value"
    puts "value is $value1"
    puts "value is $value2"
}

但它不起作用.我在这里做错了吗？

我无法让它发挥作用。

set dut xyz
set fname [join {$dut "-CE"} ""]

但这有效：

set fname [join {xyz "-CE"} ""]

我想要 fname 作为“xyz-CE”

我试图通过 ssh 从远程计算机获取 uname -r 的值，并在本地脚本流中使用该值。

kern_ver=uname -r
sshpass -p "$passwd" ssh -o StrictHostKeyChecking=no root@$c 'kern_ver=echo \$kern_ver'

但看起来该值没有传递回本地脚本流。

我得到的答案是1我试过这个:

set a "Amazon"
set b [split $a]
set c [llength $b]
puts "$c"

proc Fibonacci {x} {
    set n(0) 0; set n(1) 1
    set i 2
    while {$i <= $x} {
        set n($i) [expr n($i-2) + n($i-1)]
        incr i
    }
    return $n($i)
}
set y [Fibonacci 10]
puts "$y"

在编译上述程序时,我收到以下错误.请纠正我