如何避免 - 從我在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 
%