コマンドライン引数を配列に格納する方法

Question

コマンドライン引数をtclの配列に格納する方法は？

私はコマンドライン引数（argv）を配列に格納しようとしています。 argvは配列ではありませんか？私は次のコードを試しましたが、私のためには動作しません。

proc auto args { 
    global argv 
    set ifname [lindex $argv 0] 
    puts "***********$ifname" 
    puts "$argv(2)" 
    for { set index 1} { $index < [array size argv ] } { incr index } { 
     puts "argv($index) : $argv($index)" 
    } 
} 
#Calling Script with arguments 
auto {*}$argv 

Answer 1

注文事項とリストが引数を行うための、完全に合理的な方法であるため、Tclのargvグローバルは、リスト、配列ではありません。そのため、lindex（および他のリスト操作）を使用しています。配列に変換することはできますが、ほとんどのコードはそれによって "驚いた"ものになります。このように、それは（「arguments」以下）、そのために別の配列名を使用することをお勧めします：あなたがその要素とllengthにアクセスするためにLINDEXを使用するように、Tclの用語で

proc argumentsToArray {} { 
    global argv arguments 
    set idx 0 
    unset -nocomplain arguments; # Just in case there was a defined variable before 
    array set arguments {};  # Just in case there are no arguments at all 
    foreach arg $argv { 
     set arguments($idx) $arg 
     incr idx 
    } 
} 

argumentsToArray 
puts "First argument was $argument(0) and second was $argument(1)"