在文件中查找搜索字符串并存储在变量中 - TCL

Question

我试图读取包含两个变量（用户名和密码）的文件，例如： user1,password1

如何分隔值并存储在不同的变量中？ 我试过这个，但似乎不存储字符串本身。

它似乎无法在那里看到逗号。 另一个想法是使用\M来匹配＆＃34;，＆＃34;在每个字符串之后存储该字符串但它不起作用。

感谢一些帮助。

set varuser [lsearch -inline -all $userpass "*,"]

set varuser [regexp {,\s+"(.*)"} $userpass all value]

Answer 1

由于用户的密码可能包含逗号，我赞成采用正则表达式方法：

% set line {user1,my,clever,password}
user1,my,clever,password
% lassign [regexp -inline {^(.+?),(.*)$} $line] -> user pass
% set user
user1
% set pass
my,clever,password