如何用Python/Perl编写选项至多出现一次且顺序任意的正则表达式

核心正则实现 #

Python 和 Perl 的正则引擎均支持否定向前预查，可直接通过正则实现需求：每次匹配选项前，先校验该选项未在之前出现过，针对你给出的a、b、c三个选项的场景，核心正则如下：
^foo(?: (?!.* \1)([abc]))*$

匹配规则验证 #

• 合法输入（全部匹配成功）：
  • foo a b c
  • foo b c a
  • foo a b
  • foo b
• 非法输入（全部匹配失败）：
  • foo b b

多字符选项适配 #

如果你的选项是多字符字符串（比如apple、banana、cherry），仅需替换括号内的匹配规则即可：
^foo(?: (?!.* \1)(apple|banana|cherry))*$

各语言使用示例 #

Python 示例 #

纯正则实现

import re

pattern = r'^foo(?: (?!.* \1)([abc]))*$'
test_cases = [
    "foo a b c",
    "foo b c a",
    "foo a b",
    "foo b",
    "foo b b"
]
for case in test_cases:
    result = re.match(pattern, case)
    print(f"{case}: {'匹配成功' if result else '匹配失败'}")

更易维护的非正则实现

选项较多时更推荐这种写法，可读性和性能都更好：

ALLOWED_OPTIONS = {"a", "b", "c"}

def check_valid(input_str: str) -> bool:
    if not input_str.startswith("foo "):
        return False
    options = input_str.split()[1:]
    # 校验无重复 + 所有选项都在允许范围内
    return len(options) == len(set(options)) and all(opt in ALLOWED_OPTIONS for opt in options)

Perl 示例 #

my $pattern = qr/^foo(?: (?!.* \1)([abc]))*$/;
my @test_cases = (
    "foo a b c",
    "foo b c a",
    "foo a b",
    "foo b",
    "foo b b"
);
foreach my $case (@test_cases) {
    print "$case: " . ($case =~ $pattern ? "匹配成功" : "匹配失败") . "\n";
}

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