正则表达式 – 如何将Perl正则表达式中的捕获存储到单独的变量中

发布时间：2020-12-14 06:29:39 所属栏目：百科来源：网络整理

导读：我有一个正则表达式 /abc(def)ghi(jkl)mno(pqr)/igs 如何将每个括号的结果捕获到3个不同的变量中,每个括号一个？现在我使用一个数组捕获所有的结果,它们顺序出来,但是我必须解析它们,并且列表可能是巨大的. @results = ($string =~ /abc(def)ghi(jkl)mno(pqr

我有一个正则表达式

/abc(def)ghi(jkl)mno(pqr)/igs

如何将每个括号的结果捕获到3个不同的变量中,每个括号一个？现在我使用一个数组捕获所有的结果,它们顺序出来,但是我必须解析它们,并且列表可能是巨大的.

@results = ($string =~ /abc(def)ghi(jkl)mno(pqr)/igs);

你的问题对我来说有点模糊,但我想你想做这样的事情：

my (@first,@second,@third);
while( my ($first,$second,$third) = $string =~ /abc(def)ghi(jkl)mno(pqr)/igs) {
    push @first,$first;
    push @second,$second;
    push @third,$third;
}

（编辑：李大同）

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