tcl实现struct结构，且不使用任何包

在 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]"