Question

我将参数传递给函数StcPortConfig，如下所示：

 STC::StcPortConfig m:$port_b fc:1 pause_frame_rate:30 pause_val:"FFFF" mode:"gen";

在StcPortconfig函数中，我需要解析我正在做的不同参数值，如下所示：

 proc ::STC::StcPortConfig {args} {

  foreach arg $args {
    regexp {([A-Za-z0-9_-]+):([a-z0-9,-_ ]*)} $arg match cmd value

 if {$cmd == "pause_frame_rate"} {
    set pause_frame_rate $value
    set pause_frame 1
  }
 if {$cmd == "mode"} {
    set mode $value
    puts "\nport is configured as $mode\n"
  }
}

我能够读取pause_frame_rate的值（设置为30）。但是在我阅读＆＃34;模式＆＃34;时解析字符串存在问题。 print语句给出＆＃34; port配置为＆＃34;。

当我阅读args时，它的打印如下： args是m：1 fc：1 pause_frame_rate：30 pause_val：\＆＃34; FFFF \＆＃34;模式：\＆＃34;根\＆＃34;

我在尝试解析字符串而不是整数/数字的参数时遗漏了一些东西。

Answer 1

您可以使用string trim删除引号。另一种实现方式：

proc ::STC::StcPortConfig {args} {
    foreach arg $args {
        regexp {([\w-]+):(.*)} $arg -> cmd value
        set value [string trim $value {"}]   ; # remove double quotes
        switch -exact -- $cmd {
            pause_frame_rate {
                set pause_frame_rate $value
                set pause_frame 1
            }
            mode {
                set mode $value
                puts "\nport is configured as $mode\n"
            }
        }
    }
}

Answer 2

而不是做模式：“gen”，我将其改为模式：gen并且它有效。

解析tcl中的字符串参数

2 个答案: