Question

我需要在tcl中连接两个字符串，然后修改连接字符串，如果有任何不需要的字符，如'_'。字符串存储在tcl变量中，我面临的问题是我需要连接这两个字符串，如"$str1_$str2"。基本上连接两个字符串，它们之间有一个'_'。我找到了如下方法。

    set str1 "mystring1";  #string 1
    set str2 "mystring2";  #string 2. This string could be Empty String as well.

    set outString [append outString "_" $str2];
    set outString [string trimright '_'];

这给了我outString的值，如下所示：

    puts $outString;  
    mystring1_mystring2    #if $str2 is not empty
    mystring1              #if $str2 is empty.

我正在寻找一种更优化的方式来完成我的任务。我试着简单地加入两个字符串，如

    set outString "$str1_$str2"

但是我得到了错误＆＃34;没有像$ str1这样的变量_＆＃34;因为＆＃39; _＆＃39;下划线可以是变量名称的一部分。

任何建议将不胜感激。

Answer 1

将变量插入字符串时，可以使用花括号来保护变量名。

set str1 "mystring1";
set str2 "mystring2";
set outString "${str1}_${str2}"

（相同的语法适用于shell脚本，Perl以及其他脚本语言。）

但我不会指望这种情况＆＃34;更优化＆＃34;那叫append。它更容易阅读，恕我直言这是一个很好的理由这样做，但在你测量它之前不要认为它更快。

参考：http://www.tcl-lang.org/man/tcl8.6/TclCmd/Tcl.htm#M12

在tcl中连接两个字符串

1 个答案: