perl regex-锚点和模式匹配

罗希特G

我对perl regex进行了编码,以在某个锚点之后提取单词,这似乎不起作用。我究竟做错了什么。

这是我的实际输出,我需要在groups关键字之后提取每个数字

$id cuser301 uid=2301(cuser301) gid=32(rpc) groups=32(rpc),1001(cgrp1),1002(cgrp2),1003(cgrp3),1004(cgrp4),1005(cgrp5),1006(cgrp6),1007(cgrp7),1008(cgrp8),1009(cgrp9),1010(cgrp10),1011(cgrp11),1012(cgrp12),1013(cgrp13),1014(cgrp14),1015(cgrp15),1016(cgrp16),1017(cgrp17),1018(cgrp18),1019(cgrp19),1020(cgrp20),1021(cgrp21),1022(cgrp22),1023(cgrp23),1024(cgrp24),1025(cgrp25),1026(cgrp26),1027(cgrp27),1028(cgrp28),1029(cgrp29),1030(cgrp30),1031(cgrp31),1032(cgrp32) 

从上面开始,我运行id命令,然后想捕获组后的数字,请帮助。

我正在使用以下内容。

my $check_groups = execute("\id $user"); #---> (execute is to run commands on the linux client, please ignore it)

my $new_groups = ('/^groups/',$check_groups); # ---> Now $new_groups should have all numbers after groups.
口渴
my $input = '$id cuser301 uid=2301(cuser301) gid=32(rpc) groups=32(rpc),1001(cgrp1),1002(cgrp2),1003(cgrp3),1004(cgrp4),1005(cgrp5),1006(cgrp6),1007(cgrp7),1008(cgrp8),1009(cgrp9),1010(cgrp10),1011(cgrp11),1012(cgrp12),1013(cgrp13),1014(cgrp14),1015(cgrp15),1016(cgrp16),1017(cgrp17),1018(cgrp18),1019(cgrp19),1020(cgrp20),1021(cgrp21),1022(cgrp22),1023(cgrp23),1024(cgrp24),1025(cgrp25),1026(cgrp26),1027(cgrp27),1028(cgrp28),1029(cgrp29),1030(cgrp30),1031(cgrp31),1032(cgrp32)';
print join ',', $input =~ /(?:.*groups=|\G.*?)\b([0-9]+)/g;

这是一种常见的模式。在更复杂的情况下,如果您想确保\G分支仅在第一个非零长度匹配之后才适用,则可以使用\G(?!\A)而不是just \G

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

Perl和Regex-单行模式匹配

来自分类Dev

无法使用perl和regex在阵列中保存模式匹配

来自分类Dev

perl regex机器和列表

来自分类Dev

Windows CMD Line中的Perl和Regex

来自分类Dev

perl regex方括号和单引号

来自分类Dev

Python中的负RegEx模式匹配等效于Perl(!〜运算符)

来自分类Dev

perl regex,不匹配的匹配以某种方式不被尊重?

来自分类Dev

在Perl regex模式中必须转义哪些字符

来自分类Dev

perl regex:将多个匹配项作为变量

来自分类Dev

perl regex:将多个匹配项作为变量

来自分类Dev

PERL Regex帮助匹配字段中的字符串

来自分类Dev

如何使用Perl在Regex中正确匹配TAB?

来自分类Dev

perl regex-如何匹配不以(\ s * // \ s *)开头的foobar

来自分类Dev

使用 Perl RegEx 的 ViM 语法文件同步匹配

来自分类Dev

PERL:匹配多种模式

来自分类Dev

从行尾匹配 perl 模式

来自分类Dev

Perl:regx 模式匹配

来自分类Dev

perl regex / x开关

来自分类Dev

Perl Strip Regex for URI

来自分类Dev

评估perl regex的RHS

来自分类Dev

从Perl Regex返回输出

来自分类Dev

使用grep linux命令和perl regex +捕获组

来自分类Dev

perl regex CSV文件和列标题处理

来自分类Dev

Perl和Regex-解析.csv中的值

来自分类Dev

带下划线和正斜杠的 Perl RegEX

来自分类Dev

需要 Python Regex 多模式匹配和反模式匹配

来自分类Dev

Perl匹配和转换

来自分类Dev

Eclipse:Perl EPIC调试和发布模式执行不匹配

来自分类Dev

同时进行Perl模式匹配和算术运算