使用grepl与正则表达式验证firstname.lastname@domain.com格式字符串真值

没问题，我来帮你搞定这个邮箱格式的验证需求！你已经确认了字符串包含@domain.com，接下来只需要补充验证@前的分隔规则就行，具体实现如下：

核心需求拆解 #

我们需要确保：

• @符号仅出现在末尾的@domain.com中（正则会自动限制，避免前面出现多余的@）
• @之前必须有且仅有一个.分隔符
• 这个.的左右两边至少各有n个字符（比如n=1时，不能出现.smith@domain.com或者bob.@domain.com这类情况）

正则表达式实现（结合R的grepl） #

假设你要求n=1（即点左右至少1个字符），可以用下面的正则：

regex <- "^[^@.]+\\.[^@.]+@domain\\.com$"
grepl(regex, your_email_string, perl = TRUE)

正则各部分解释 #

• ^：匹配字符串的开头，确保前面没有多余内容
• [^@.]+：匹配至少1个不是@和.的字符（对应点左边的名字部分）
• \\.：匹配那个必填的分隔点（转义.是因为它在正则里是通配符）
• [^@.]+：匹配点右边的部分，同样要求至少1个非@非.的字符
• @domain\\.com$：匹配结尾的固定域名，确保整个字符串严格符合格式，同时避免域名错误

如果需要调整n的数值（比如要求点左右至少2个字符），只需要把+改成{n,}即可：

n <- 2
regex <- sprintf("^[^@.]{%d,}\\.{%d,}[^@.]@domain\\.com$", n, n)

测试案例验证 #

我们用几个例子来测试效果：

• ✅ bob.smith@domain.com → 返回TRUE（符合所有规则）
• ❌ bobsmith@domain.com → 返回FALSE（@前没有分隔点）
• ❌ .smith@domain.com → 返回FALSE（点左边没有字符）
• ❌ bob.@domain.com → 返回FALSE（点右边没有字符）
• ❌ bob..smith@domain.com → 返回FALSE（@前有多个分隔点）
• ❌ bob.smith@otherdomain.com → 返回FALSE（域名不符合）

封装成可复用函数 #

如果你需要多次验证，可以把逻辑封装成函数：

validate_domain_email <- function(email, min_chars = 1) {
  # 生成动态正则
  regex_pattern <- sprintf(
    "^[^@.]{%d,}\\.{%d,}[^@.]@domain\\.com$",
    min_chars, min_chars
  )
  # 执行匹配
  grepl(regex_pattern, email, perl = TRUE)
}

# 测试使用
test_cases <- c(
  "alice.johnson@domain.com",
  "alicejohnson@domain.com",
  "a.j@domain.com",
  ".johnson@domain.com"
)

sapply(test_cases, validate_domain_email)
# 输出结果：
# alice.johnson@domain.com alicejohnson@domain.com             a.j@domain.com      .johnson@domain.com 
#                     TRUE                     FALSE                      TRUE                     FALSE 

小提醒 #

其实这个正则已经包含了“必须包含@domain.com”的验证，所以你之前单独的grepl检查可以合并掉，一次匹配就搞定所有规则，更高效~

内容的提问来源于stack exchange，提问作者spies006