TCL中不使用外部包将嵌套列表转换为CSV文件的实现方法

纯TCL内置命令即可实现该需求，完全不需要调用任何csv相关的外部依赖包，以下是具体实现：

实现逻辑 #

• 确认所有子列表长度一致，该长度就是最终输出的行数
• 按行号遍历，依次提取所有子列表对应行号位置的元素，用指定分隔符拼接为一行
• 将所有拼接完成的行统一写入目标文件即可

可直接运行的示例代码 #

# 输入的嵌套列表示例
set input_list {{1 2} {3 4} {5 6}}
# 定义分隔符，你示例中是|前后带空格，可根据需求自行调整
set sep " | "
# 取第一个子列表的长度作为输出行数，默认所有子列表长度一致
set row_count [llength [lindex $input_list 0]]
# 存储输出行的容器
set output_content {}

# 逐行生成内容
for {set row_idx 0} {$row_idx < $row_count} {incr row_idx} {
    set current_row {}
    # 遍历所有子列表，取出当前行对应的元素
    foreach sub_list $input_list {
        lappend current_row [lindex $sub_list $row_idx]
    }
    # 拼接为一行加入输出容器
    lappend output_content [join $current_row $sep]
}

# 写入到目标文件，文件名可自行修改
set file_handler [open "target.csv" w]
puts $file_handler [join $output_content "\n"]
close $file_handler

输出验证 #

运行代码后生成的target.csv内容完全匹配要求：

1 |3 |5
2 |4 |6

扩展说明 #

如果实际使用中存在子列表长度不一致的情况，可在遍历前新增校验逻辑，提前判断所有子列表的长度是否统一，避免出现元素缺失的问题。

内容的提问来源于stack exchange，提问作者A2BR