Tcl 平均值计算

如何借助Tcl脚本计算文本文件中特定列的平均值

例如，我有一个包含3列的文本文件，如：

1 2 3

4 5 6

5 9 7

3 2 8

我只想计算第1列的平均值；那么如何使用Tcl脚本来实现呢

按空格分割以获取第一列值

创建一个空列表来存储值

将总和除以其长度

someFile：

1 2 3

4 5 6

5 9 7

3 2 8

因此：

values = []             # an empty list
with open(fileName, 'r') as f:
    content = f.readlines()
    content = [l.strip() for l in content if l.strip()]  # to remove empty lines

    for line in content:
         values.append(int(line.split(" ")[0])) # convert str to int and append

    print(sum(values) / float(len(values)))

3.25

输出：

values = []             # an empty list
with open(fileName, 'r') as f:
    content = f.readlines()
    content = [l.strip() for l in content if l.strip()]  # to remove empty lines

    for line in content:
         values.append(int(line.split(" ")[0])) # convert str to int and append

    print(sum(values) / float(len(values)))

3.25

提示：

split（“”[0]

如果要使用Tcl，可以使用类似的内容。