如何插入“#”使用 Tcl 注释掉特定关键字？

Question

TCL 有没有办法通过搜索 cfg 关键字来插入 (#) 注释？

-->运行tcl之前

abcd abcd abcd
cfgabc abcd abcd
cfgcdd abc abc
abcd abcd abcd
cfgabc abcd abcd

-->运行tcl之后

abcd abcd abcd
#cfgabc abcd abcd
#cfgcdd abc abc
abcd abcd abcd
#cfgabc abcd abcd

Answer 1

您可以使用 regsub：
regsub -all {cfg} $str {#cfg}

编辑
用于在字符串中的任何位置查找 cfg 并注释此行（按照注释中的要求）：
regsub {(.*)cfg(.*)} $str {#\1cfg\2}
例如

设置str“bla lkjhcfglkj”
bla lkjhcfglkj
regsub {(.*)cfg(.*)} $str {#\1cfg\2}
#bla lkjhcfglkj

这风险更大，需要更多关注和谨慎。

Answer 2

如果您要查找行首的三个字母 cfg，使用 regsub 就可以轻松完成。特别是，-line 选项对此有很大帮助。

regsub -all -line {^cfg} $str "#cfg"

请注意，应对此类事情应谨慎：很容易出现匹配线过度或不足的情况。手动检查结果！ （希望这比手动进行大量编辑更容易。）