Regex perl中的解析函数

Regex perl中的解析函数,regex,perl,parsing,Regex,Perl,Parsing,我正在从另一个脚本生成函数调用列表,如下所示: <<START>>set('element','prop','value');get('element','value');alert('something');run('script','params',return');<<END>> (我认为这是可行的,没有检查) 但问题是,我需要它更加健壮,我认为必须有一种替代regex的方法,能够检查错误的语法,删除空白,并添加注释。如果你想变得更健壮,可

我正在从另一个脚本生成函数调用列表,如下所示:

<<START>>set('element','prop','value');get('element','value');alert('something');run('script','params',return');<<END>>
(我认为这是可行的,没有检查)


但问题是,我需要它更加健壮,我认为必须有一种替代regex的方法,能够检查错误的语法,删除空白,并添加注释。

如果你想变得更健壮,可以看看底层健壮的解析器和规范的好处。

如果你想要健壮,您需要指定语法,并编写实际的解析器。它不必很复杂,但需要一个规范。为什么不直接使用现有的解析器呢?亚马尔?JSON?您也可以从中受益。我应该如何使用JSON解析器来实现这一点?您将如何使用perl制作解析器?@alfa64可在以下位置查阅文档。
my $result;
my $script= 'the script written above';
while ( $script =~ m/(\w)\(\'.+\'\);/i){
      callfunction($1,$2,$result); #the function that handles the calls
}