lsearch lreplace

`lsearch` 和 `lreplace` 是 Tcl 语言中的两个字符串处理命令。

`lsearch` 命令用于在列表中查找特定的元素，并返回其索引位置。它的语法如下：

lsearch ?-exact? ?-glob? ?-regexp? ?--? list pattern

其中，`-exact`、`-glob` 和 `-regexp` 是可选参数，用于指定匹配模式。`list` 是要搜索的列表，`pattern` 是要查找的元素。

示例用法：

set mylist {apple banana orange}
set index [lsearch $mylist "banana"]
puts $index ;# 输出：1

在上面的例子中，我们定义了一个列表 `mylist`，然后使用 `lsearch` 命令查找元素 "banana" 的索引位置，并将结果赋值给变量 `index`。

`lreplace` 命令用于替换列表中的元素。它的语法如下：

lreplace list first last ?element element ...?

其中，`list` 是要替换元素的列表，`first` 和 `last` 是要替换的元素的起始索引和结束索引（包括在内）。`element element ...` 是要插入的新元素。

示例用法：

set mylist {apple banana orange}
set newlist [lreplace $mylist 1 1 "grape"]
puts $newlist ;# 输出：apple grape orange

在上面的例子中，我们定义了一个列表 `mylist`，然后使用 `lreplace` 命令将索引为 1 的元素 "banana" 替换为 "grape"，并将结果赋值给变量 `newlist`。最终输出的是替换后的新列表。