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 
# ...........^.....^..............^^