tcl: описать строку в списке

Question

Я пытаюсь разобрать строку в плоский список в TCL.

Строка имеет формат

name1='value1',name2='value2',name3='value3' 

Я интересно, если есть способ, чтобы захватить имена и значения в список, который выглядит следующим образом:

{name1 value1 name2 value2 name3 value3} 

Обратите внимание, что имя или само по себе может содержать все, что включает в себя такие символы, как ' или = или ,

Answer 1

хорошо, возможно

set data {name1='value1',name2='value2',name3='value3'} 
foreach {- key value -} [regexp -all -inline {(.*?)='(.*?)'(,|$)} $data] { 
    lappend result $key $value 
} 

Примечание: Если ключ происходит только один раз, я предлагаю использовать dicts (dict set result $key $value).

Answer 2

Самый простой способ - заменить символы =, , и ' с пробелами:

% set s {name1='value1',name2='value2',name3='value3'} 
name1='value1',name2='value2',name3='value3' 

% set new_s [string map {"='" " " "'," " " "'" " "} $s] 
name1 value1 name2 value2 name3 value3 

string map принимает два параметра. Первый - это список старых-новых пар строк. Вторая - сама строка. По существу, string map будет искать старые строки и заменять их новыми. Например, он будет искать =' и заменяет (пробел).

Обновление

выше решение не предполагает никакого пространства в названиях или значений. Следующее решение будет работать для тех значений со встроенными пробелами:

% set s {name1='value1',name2='value 2',name3='value3'} 
name1='value1',name2='value2',name3='value3' 

% string map {"=" " " "'" {"} "," " "} $s 
name1 "value1" name2 "value 2" name3 "value3" 

Answer 3

Вы можете сделать это с отрицательным символьного класса

set s {name1='value1',name2='value2',name3='value3'} 
set result [regexp -inline -all -- {[^=',]+} $s]