问题标签 [regsub]

我有一个看起来像的列表：

当我使用 foreach 循环一一操作列表的元素时：

我得到以下输出：

a.b.c.d a.bb.ccd[0] a.bb.ccd[1]

请注意，反斜杠丢失了（由于 tcl 语言流程）。

为了保持相同，我想为 list1 具有现有反斜杠的所有元素添加一个额外的反斜杠。

我试过了 ：

regsub -all {\} $list1 {\\} list1 （还尝试了双引号而不是大括号和其他可能的试验）。

似乎没有任何效果。

有没有办法确保 $ele 在 foreach 循环中保留反斜杠字符，因为我需要具有完全相同字符的元素进行进一步处理。

PS 初学者使用 regexp/regsub

我是 Tcl 的新手。我有一个这样的列表：

从该列表中，我只想要以下元素：

dir1
dir2
arun

我试过了regexp，lsearch但没有运气。

方法一：

方法二：

我正在设置宏、Set 和 Say。在程序中定义。

这允许我执行以下操作：

输出

所以现在假设我想将变量 $ 重新分配给 %

但是我在使用 eval 时得到了，

输出

我觉得这很奇怪，因为我们在上面设置了它，我们可以使用标准 $ 调用该值并且我可以证明 Say2 中的 regsub 正在工作，因为它应该用 $ 替换 %。

%mouse 变成 $mouse 是一个有效的变量。没有此类变量的 Eval $mouse 输出

我错过了什么吗？

谢谢

要将/文件名中的最后一个替换为:我尝试了以下代码。

不想要的结果是:。

期望的结果是a/b:c

例子：

反馈表示赞赏。

我有一个变量，由于某种原因，它的后缀为 {}。即回显$文件

此变量在其他命令中使用时现在会出错。如何删除这个附加到我的变量的空列表？

像 regsub {} $file {} file 之类的东西。但这似乎不起作用

有没有办法将转义“\”添加到具有多个特殊字符的字符串中？

示例输入：a/b[1]/c/d{3}
期望的结果：a\/b\[1\]\/c\/d\{3\}

我已经在多个 regsub 中一次完成了一个特殊字符。但是有没有办法一次性做到呢？

我想自动转换网址，即

• “ https://sc-uat.ct.example.com/sc/ ” 变成 “ https://invbeta.example.com/sc/ ”
• “ https://sc-dev.ct.example.com/sc/ ” 变成 “ https://invtest.example.com/sc/ ”
• “ https://sc-qa.ct.example.com/sc/ ” 变成 “ https://invdemo.example.com/sc/ ”

我在 TCL 中尝试过以下代码片段

但结果是：新位置 = https://inv[ $envs(uat)].example.com/sc/

似乎[$envs(uat)]没有被评估并用实际值进一步替换。任何提示将不胜感激。提前致谢

伙计们！我遇到了一个我自己无法解决的问题。

由于数字“08”和“09”不能像其他数字（01,02,03,04 等......）一样阅读，因此必须在语言Tcl中单独处理。

我找不到一种方法来删除所有 [我说 ALL 因为同一行上有多个] 前导零，除了右边的一个，它必须保持不变。

对于已经完全熟悉 Tcl/Tk 语言的人来说，这听起来很简单。但对于刚开始并正在寻找有关 Tcl / Tk 的更多信息的我来说，我在互联网上阅读了很多资料，包括这个https://stackoverflow.com/questions/2110864/handling-numbers-with-leading- zeros-in-tcl#2111822 所以没有什么可以告诉我如何在一次扫描中消除所有前导零。

我需要你给我这样的回报：2:9:10

我需要这个稍后使用expr[算术表达式] 命令来操作结果。

在此示例中，它仅删除了一个前导零：

谁能给我那个实力的朋友？！我现在很感激。

regex使用and函数从句子/行中提取文本部分regsub- left 和 right。例如这一行：

• 学习课号@12.4.1@_01.html

我需要regsub和/或regex只留下“@”之间的片段。

保持这样：12.1.4 剩下的可以擦掉所有的左右剩余。

在另一种情况下，在Bash而不是Tcl中。我可以这样做：

我问这个问题，更多是为了教学。也就是说，学习使用这种 Tcl 语言的原生特性，而不是依赖于 Unix-Like 系统命令本身。

如何制作正则表达式来执行此命令？提前致谢 ...

嗨，我是 tcl 的新手，想将“\n”分配给一个变量，并在 regsub 中使用该变量来替换该字符串。它应该是这样的：

我期待这会给 \n\[\"this is my code\"\]，然后我可以使用这个 $a in regsub {$a} $str "replace" sub_str。这个 regsub 可以在 $str 中搜索 $a 并将匹配的替换为 replace 并将其存储在 sub_str 中。但是，它给了我[this is my code] 有没有一种方法可以获得第一种格式，\n\[\"this is my code\"\]以便我可以使用它来执行字符串 regsub？

谢谢！