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

发布时间：2020-12-15 21:45:56 所属栏目：大数据来源：网络整理

导读：我正在学习Perl并练习正则表达式,我想要具备以下功能：输入通配符样式shell语法产量 Perl正则表达式我很清楚Regexp :: Wildcards,但我想要更小的东西,我也想自己写它以获得教育收益. 我真的很难为此编写正则表达式.我试图列出我的要求,以帮助使正则表达

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

输入

通配符样式shell语法

产量

Perl正则表达式

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

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

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

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

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

例

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

您没有保留动态的反向引用列表.

相反,您将此问题分解为以下步骤：

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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!