使用gsub替换电子邮件

Question

如何将电子邮件regex模式替换为丢失。 我努力了

blogs.smpl <- "mami@yahoo.com : subject:Lorem Ipsum body:   is simply dummy text of the printing and typesetting industry.Lorem@Ipsum.com has been the industry's standard dummy text ever since the 1500s"
blogs.smpl1 <- gsub("^[a-zA-Z0-9_.+-]+@[a-zA-Z0-9-]+\\.[a-zA-Z0-9.-]+$","",blogs.smpl )
blogs.smpl1

但不要替换电子邮件地址。 我也尝试过使用这种模式email2 <- "^[[:alnum:].-]+@[[:alnum:].-]+$"

Answer 1

该锚在你的整个模式都是问题。 ^锚断言正则表达式引擎在字符串中的当前位置是字符串的开头，而$断言在字符串末尾的位置。 这些地址不在您的字符串中。 因此，通过实现两个锚点，您就是在告诉引擎您的整个字符串应与此模式匹配。

您只需删除两个锚点，它就会替换数据中的地址。 或者，如果您知道这些地址始终由空格限制，则就足够了。

gsub('\\S+@\\S+', '', blogs.smpl)