regex - 如何使用 regsub 替换特定字符？

Question

我正在使用 tcl 8.5。

我想剪掉不以我的输入结尾,或不"以我的输入结尾的每一行。

输入

karthik*
software engineer,

我试过了 ，

regsub -all {[^",]\n} $content {} content 

预期产出

karthik*software engineer,

输出

karthiksoftware engineer,

字符*丢失。我理解[^,"]regsub 匹配 * 并且它被剪切了。但是我怎么能只剪\n而不剪*呢？

Answer 1

这是因为您将换行符之前的字符与换行符一起丢弃。

regsub -all {([^",])\n} $content {\1} content 
# ...........^.....^..............^^