在 Tcl 中,可以使用字典(dictionary)来实现类似于结构体的数据结构,它可以包含多个属性(字段)并且可以按照字段名进行访问。以下是一个简单的示例:
# 定义一个字典,表示一个人的信息
set person [dict create name "John" age 30 gender "male"]
# 访问字典中的字段
puts "Name: [dict get $person name]"
puts "Age: [dict get $person age]"
puts "Gender: [dict get $person gender]"
# 修改字典中的字段
dict set person age 31
puts "New age: [dict get $person age]"