TCL - 在文件中查找常规模式并返回出现次数和出现次数

set pattern "your_pattern"  ;# 替换为要查找的模式
set file_path "your_file_path"  ;# 替换为要查找的文件路径

set file_data [read [open $file_path]]
set match_count 0
set match_positions {}

if {[regexp -all -inline -indices $pattern $file_data matches]} {
    foreach match $matches {
        set start [lindex $match 0]
        set end [lindex $match 1]
        lappend match_positions [list $start $end]
        incr match_count
    }
}

puts "模式 '$pattern' 在文件中出现了 $match_count 次。"
puts "出现位置："
foreach position $match_positions {
    set start [lindex $position 0]
    set end [lindex $position 1]
    puts "起始位置：$start，结束位置：$end"
}