如何将数组作为参数传递给TCL脚本命令行运行？

tclsh script.tcl -var myArray {1 2 3 4 5}

set arrayName ""
set arrayValue {}

# 遍历命令行参数
for {set i 0} {$i < [llength $argv]} {incr i} {
    set arg [lindex $argv $i]
    
    # 检查是否为数组参数
    if {$arg eq "-var" && $i < [expr {[llength $argv] - 1}] } {
        set arrayName [lindex $argv [expr {$i + 1}]]
        set arrayValue [lindex $argv [expr {$i + 2}]]
        break
    }
}

# 检查是否找到数组参数
if {$arrayName ne "" && $arrayValue ne {}} {
    # 将数组参数转换为TCL数组
    set arrayName [string trim $arrayName {}]
    set arrayValue [string trim $arrayValue {}]
    set $arrayName [split $arrayValue " "]
    
    # 打印数组内容
    puts "Array $arrayName: $arrayValue"
} else {
    puts "Array parameter not found"
}