Я пробовал это:
<tcl_interpreter> mytcl.tcl first {1 2 3 4 5 6}
Я хотел бы, чтобы arg1 был «первым», а arg2 был списком {1 2 3 4 5 6}. Таким образом, $argc должно быть равно 2. Но $argc дает мне 7, и каждый элемент {1 2 3 4 5 6} обрабатывается как отдельный аргумент.
Вам нужно использовать кавычки вместо фигурных скобок. Интерпретатор не знает, что фигурные скобки означают список, потому что они означают список внутри Tcl. Если вы хотите передать список, вы делаете это так:
<tcl_interpreter> mytcl.tcl first "1 2 3 4 5 6"
Если у вас есть что-то подобное в вашем mytcl.tcl, вы получите 3:
[lindex [lindex $argv 1] 2]
Обратите внимание, что использование "{1 2 3 4 5 6}" даст скрипту список, содержащий один элемент, причем сам этот элемент представляет собой список, содержащий 6 элементов.
Понятно. Просто нужно было поставить {1 2 3 4 5 6} в кавычки. Так:
<tcl_interpreter> mytcl.tcl first "{1 2 3 4 5 6}"
будет производить то, что я ищу. Он будет рассматривать {1 2 3 4 5 6} как один список целых чисел.
[lindex $argv 0]для вашего вопроса должно возвращатьfirst, а[lindex $argv 1]должно возвращать список, а не список списка... 22.07.2014