基于Tcl 8.4的通用CSV数据查询函数开发需求

需求说明 #

在无法升级的Tcl 8.4环境中，实现适配任意包含Name、Interface列的CSV格式的通用处理函数processCSV，函数接收三个参数：Name实际值、Interface实际值、目标列名，返回匹配行的目标列内容。

示例CSV数据 #

Name,Interface,Description,IP,Mask
sw1,G1/0/1,to_sw2,192.168.0.1,255.255.255.252
sw1,G1/0/2,to_sw3,192.168.0.5,255.255.255.252
sw2,G1/0/1,to_sw1,192.168.0.2,255.255.255.252

函数实现 #

proc processCSV {nameValue interfaceValue targetColumn} {
    global csvData
    set lines [split $csvData "\n"]
    
    # 解析表头，建立列名与索引的映射数组
    set header [split [lindex $lines 0] ","]
    array set colIndexMap {}
    foreach colName $header idx {0 1 2 3 4} {
        set colIndexMap($colName) $idx
    }
    
    # 校验目标列是否存在
    if {![info exists colIndexMap($targetColumn)]} {
        error "CSV中不存在目标列：$targetColumn"
    }
    set targetIdx $colIndexMap($targetColumn)
    
    # 遍历数据行查找匹配项
    foreach line [lrange $lines 1 end] {
        if {$line eq ""} {continue}
        set fields [split $line ","]
        set currentName [lindex $fields $colIndexMap(Name)]
        set currentInterface [lindex $fields $colIndexMap(Interface)]
        
        if {$currentName eq $nameValue && $currentInterface eq $interfaceValue} {
            return [lindex $fields $targetIdx]
        }
    }
    
    error "未找到匹配Name=$nameValue且Interface=$interfaceValue的行"
}

使用步骤 #

1. 定义CSV数据变量（或从文件读取）：

# 直接定义CSV内容
set csvData {
Name,Interface,Description,IP,Mask
sw1,G1/0/1,to_sw2,192.168.0.1,255.255.255.252
sw1,G1/0/2,to_sw3,192.168.0.5,255.255.255.252
sw2,G1/0/1,to_sw1,192.168.0.2,255.255.255.252
}

# 或从文件读取（需确保文件路径正确）
# set csvData [read [open "your_csv_file.csv" r]]

2. 调用函数获取目标值：

set IP [processCSV sw1 G1/0/1 IP]
puts $IP ;# 输出结果：192.168.0.1

关键特性 #

• 适配任意列顺序的CSV，只要包含Name、Interface和目标列即可
• 跳过空行，避免无效数据报错
• 对不存在的目标列、无匹配行的情况抛出明确错误，便于调试

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