tcl regexp 用法解析和示例

Tcl（Tool Command Language）是一种解释型脚本语言，它提供了正则表达式（regexp）功能，允许用户执行模式匹配和字符串操作。在Tcl中使用正则表达式通常会借助 `regexp` 命令或者 `regsub` 命令，其中 `regexp` 用于匹配字符串，而 `regsub` 用于替换匹配到的字符串。

以下是 `regexp` 命令的基本用法和一些示例：

### 基本用法

regexp ?-nocase? ?-indices? ?-start offset? exp string ?matchVar? ?subMatchVar subMatchVar ...?

参数解释：
- `-nocase`：执行不区分大小写的匹配。
- `-indices`：返回匹配范围的起始和结束索引，而不是匹配的内容。
- `-start offset`：从字符串的指定位置开始搜索。
- `exp`：要匹配的正则表达式模式。
- `string`：要搜索的字符串。
- `matchVar`：可选变量，用来存储匹配到的整个字符串。
- `subMatchVar`：可选变量，用来存储匹配到的子串，每个子串对应一个变量。

### 示例
1. 匹配字符串并返回匹配结果：

set str "Hello, World!"
if {[regexp {^Hello} $str]} {
    puts "匹配成功"
} else {
    puts "匹配失败"
}

2. 使用变量存储匹配结果，并匹配时不区分大小写：

set str "hello, world!"
set pattern "^hello"
if {[regexp -nocase $pattern $str match]} {
    puts "匹配结果是：$match"
}

3. 获取匹配的起始和结束索引：

set str "This is a test string."
if {[regexp -indices {(test)} $str matchStart matchEnd]} {
    puts "匹配的起始索引为：$matchStart"
    puts "匹配的结束索引为：$matchEnd"
}

### 相关问题
1. Tcl中的正则表达式支持哪些特殊字符和构造？
2. 如何在Tcl中查找字符串中所有匹配正则表达式的子串？
3. `regsub` 命令在Tcl中的用法和 `regexp` 有什么不同？