Если я не ошибаюсь, команда lcontain
проверяет наличие элемента в списке?Эта команда никогда не была в чистом Tcl.Это часть пакета TclX, AFAIK.
В Tcl.8.5 есть оператор in
, который можно использовать в любых выражениях.Например:
set list {A B C D}
set elem "B"
if {$elem in $list} {
puts "Element '$elem' exists in the list"
}
Существует также оператор ni
, противоположный in
(проверяет, не содержит ли список элемент).
В более ранних версиях Tclможно использовать команду lsearch
и сравнить результат (индекс найденного элемента) с -1
, чтобы увидеть, был ли элемент найден на самом деле.