Perl Regex将{a,b,c,...,x}转换为(a | b | c | ... | x)

Question

我正在学习Perl并练习正则表达式,我想要具备以下功能:

输入

通配符样式shell语法

产量

Perl正则表达式

我很清楚Regexp :: Wildcards,但我想要更小的东西,我也想自己写它以获得教育收益.

我真的很难为此编写正则表达式.我试图列出我的要求,以帮助使正则表达式模式显露自己:

• 在{开始匹配
• 对每个以逗号分隔的元素进行反向引用,去掉填充空格
• 在}}结束匹配

但是,这只是在我脑海中引入了更多问题

• 如何对任意长的列表进行反向引用？

例

假设输入是{foo, bar}.c.替代算子应该将其转换为(foo|bar).c.

Answer 1

您不保留反向引用的动态列表。

相反，您可以将此问题分解为几个步骤：

my $string = "{a, b, c, d, ..., x}";

if ($string =~ m/\{(.*?)\}/) {
    my $str = join '|', split /,\s*/, $1;
    print "($str)";
}

输出：

(a|b|c|d|...|x)

也可以使用双层搜索和替换来完成此操作，如下所示：

$string =~ s{\{(.*?)\}}{
    my $list = $1;
    $list =~ s/,\s*/|/g;
    "($list)"
}eg;

print $string;