String 合并tcl中两个字符串的相同部分

我有两条线

str1 "Something, part of"

及

在这些字符串中，我想过滤掉两个字符串中相同的部分，在本例中是子字符串“Something”

---

是否有一个字符串函数可以实现这一点？我确实希望避免使用foreach遍历整个字符串。

若要在某些字符串中查找公共前缀，请使用

：：textutil:：string:：longestCommonPrefix

：

% package require textutil::string
0.7.1
% ::textutil::string::longestCommonPrefix "Something, part of" Something
Something
% ::textutil::string::longestCommonPrefix "Something, part of" Somethang
Someth

还有一个

：：textutil:：string:：longestCommonPrefixList

，它将字符串列表作为参数

请注意，不推荐像我在注释中那样使用

textutil

捆绑包。对不起

文件：

---

两个字符串的开头是否总是相同的部分？在这种情况下，请尝试textutil:：longestCommonPrefix。是的，相同的部分将始终位于开头。

% package require textutil::string
0.7.1
% ::textutil::string::longestCommonPrefix "Something, part of" Something
Something
% ::textutil::string::longestCommonPrefix "Something, part of" Somethang
Someth