如何避免 - 从我在tcl中的数据？

Question

我是tcl的新手。当我在tcl学习一些基本的命令时，我发现了这个问题，我不知道解决它。

例如，我有2个与数据

- 

watermelon 

NOTE：事实上线路输出什么，我到底要仅是“西瓜”，我不希望“-”

我我试过如下使用regsub，但也未能避免“-”。

regsub -all -nocase "^{-\n}$" $fruits{} fruits 

我也尝试过使用正则表达式来跳过它，但仍然无法正常工作。

if {[regexp -nocase "^{-\n}$" $fruits]} { 

    continue  
} 

任何建议/解决方案可能有帮助吗？

Answer 1

% set fruits {- 
watermelon} 
- 
watermelon 
% 
% regsub "^-\n" $fruits {} fruits 
1 
% set fruits 
watermelon 
%