Perl - 正则表达式中的“]”问题

Question

我有一个字符串：

my $string = "name_of_my_function(arg1,arg2,[arg3,arg4])";

我想提取函数“name_of_my_function”的名称和参数：

$arg1 = "arg1"
$arg2 = "arg2"
@arg_list = ("arg3", "arg4")

我用来提取函数的代码是：

$row =~ m/^([^\(]*)\(([^\)]*)\)/;
$function = $1;

但是，当字符串没有任何"]" 时，它可以工作，例如：

my $string = "name_of_my_function(arg1,arg2,arg3)";

但是当有"]"时它不会返回任何东西

有什么想法吗？

谢谢，

SLP

Answer 1

您显示的正则表达式捕获了函数名称以及字符串中的所有其他参数，这是非常合理的第一步。然后从第二个字符串中解析出参数。我扩展了您的$string，以便拥有多个带括号的参数列表，并与非括号的参数交错

perl -wE'
    $s = "name_of_my_function(arg1,arg2,[arg3,arg4],arg5,[arg6,arg7])"; 
    @m = $s =~ /^([^\(]*)\(([^\)]*)\)/; 
    @p = grep { $_ } split /\s*,\s*|\[(.*?)\]/, $m[1];
    for (@p) { 
        if (/,/) { push @arg_list, $_ }
        else     { push @args, $_ }
    }
    say $m[0];
    say for @args; 
    say for @arg_list
'

打印出来

name_of_my_function 参数1 arg2 arg5 arg3,arg4 arg6,arg7

split 是提取单个参数的位置，以及括号中的参数列表，每个参数都作为一个字符串。这可能会返回空元素，因此 grep { $_ } 将它们过滤掉。

然后您可以继续从括号中的列表中提取单个参数，方法是将@arg_list 中的每个字符串再次拆分为,。

---

上面的主要部分可以，就问题而言，进入一个语句

@p = grep { $_ } split /\( | \) | \[(.*?)\] |,/x, $s;

我在其中添加了/x 修饰符，以便能够将其隔开以提高可读性。这会将函数名称、各个参数和带有（逗号分隔的）每个 [] 的参数列表的字符串传递给 @p。

但是，我认为将其分解为几个步骤更为明智。

Answer 2

好吧，如果参数的数量是可变的，那么仅使用 rgex 并不是那么简单（参数将与 + 量词匹配，因此它们不会存储在捕获组中，这很容易提取）。考虑到上述情况，您可以使用此模式(\w+)\(((\w+|\[(\w+,?)+\]),?)+\)

解释：

(\w+) - 匹配一个或多个单词字符（函数名）并将其存储在第一个捕获组中，

(\w+|\[(\w+,?)+\]) - 交替：匹配\w+（同上）或\[(\w+,?)+\]：\[ - 匹配[ 字面意思，(\w+,?)+ - 匹配一次或多次\w+, 模式是一个或更多单词字符后跟一个或零个逗号 (,?)，\] - 匹配 ]，

((\w+|\[(\w+,?)+\]),?)+ - 匹配整个上述模式，可选地后跟逗号 (,?) 一次或多次。这将匹配参数列表。

\(, \) 0 匹配 (, ) 字面意思

进一步处理 - 提取括号 () 之间的内容，以便以编程方式提取参数列表 - 使用复杂的正则表达式更容易

Demo

更新：

尝试模式：https://regex101.com/r/wBcJZ0/3

我省略了解释，因为它与之前的模式非常相似。

Updted demo