我想从 tcl [关闭] 中的字符串中删除特定模式

Question

关闭。 这个问题需要细节或清晰度。 它目前不接受答案。

---

想改进这个问题？ 通过编辑这篇文章添加细节并澄清问题。

11 个月前关闭。

改进这个问题

hreset_error_status_t2_reg1 htrans_flag_t1_reg2 hsize_flag_error_reg check_hwdata_reg

我必须使用正则表达式编写 Tcl 脚本，我必须删除 error_status、 flag 、 flag_error，并检查以下字符串。 它必须在文件中搜索以下关键字，并且必须删除字符串中提到的关键字。

Answer 1

要从字符串中删除所有这些模式，请使用regsub -all 。 如果您不需要使用正则表达式的强大功能，那么string map也可以。

set my_str "hreset_error_status_t2_reg1 htrans_flag_t1_reg2 hsize_flag_error_reg check_hwdata_reg"
set my_regex {error_status_|flag_(error_)?|check_}
regsub -all $my_regex $my_str ""
  --> hreset_t2_reg1 htrans_t1_reg2 hsize_reg hwdata_reg

或者

set my_map {
   error_status_  ""
   flag_error_    ""
   flag_          ""
   check_         ""
}
string map $my_map $my_str
   --> hreset_t2_reg1 htrans_t1_reg2 hsize_reg hwdata_reg

请注意，我将flag_error_放在$my_map中的flag_之前，这样只有flag_error中的flag_字符没有被删除。