正则表达式 – 如何找到Perl中正则表达式的所有匹配？

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

导读：我有以下形式的文字： Name=Value1Name=Value2Name=Value3 使用Perl，我想匹配/ Name =(。？)/每次出现并提取(。？)并将其推到数组上。我知道我可以使用$ 1来获取我需要的文本，我可以使用=?执行正则表达式匹配，但是我不知道如何获得所有的匹配。列表上下

我有以下形式的文字：

Name=Value1
Name=Value2
Name=Value3

使用Perl，我想匹配/ Name =(。？)/每次出现并提取(。？)并将其推到数组上。我知道我可以使用$ 1来获取我需要的文本，我可以使用=?执行正则表达式匹配，但是我不知道如何获得所有的匹配。

列表上下文中的m // g返回所有捕获的匹配项。

#!/usr/bin/perl

use strict; use warnings;

my $str = <<EO_STR;
Name=Value1
Name=Value2
Name=Value3
EO_STR

my @matches = $str =~ /=(w+)/g;
# or my @matches = $str =~ /=([^n]+)/g;
# or my @matches = $str =~ /=(.+)$/mg;
# depending on what you want to capture

print "@matchesn";

但是，您正在解析INI样式的配置文件。在这种情况下，我会推荐Config::Std。

（编辑：李大同）

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