如何在Tcl中替换以某些字符串开头的行？在Tcl中使用bash是不对的？

Question

我正在编写Tcl脚本,其中一部分包含将包含某些字符串模式的行的第一次出现替换为另一行.我使用sed作为Tcl内部的bash命令,如下所示:

exec bash -c {sed 0,/Apple/{s/Apple/Banana/ File}

我的问题是有没有直接的方法来使用Tcl命令,也是错误或不建议在Tcl中使用大量的Bash命令？

谢谢

Answer 1

这有一个regsub命令:

regsub -- {Apple} $line Banana line

这是官方文档.

如果您需要帮助阅读文件的第一行,此页面可能会有所帮助.