Question

我编写perl正则表达式来提取某个锚之后的单词，它似乎不起作用。我做错了什么。

这是我的实际输出，我需要提取组关键字后的每个数字

$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.

Answer 1

尝试这样做：

$ echo <INPUT> | perl -ne 'print "$1," while /,(\d+)\(/g'

检查https://regex101.com/r/uZ9tO6/1

Answer 2

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)而不是\G。

perl regex - 锚点和模式匹配

2 个答案: