regex - perl 中的解析函数

Question

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

<<START>>set('element','prop','value');get('element','value');alert('something');run('script','params',return');<<END>>

整个语言都是带有一些参数的函数，仅此而已。我想按顺序执行它们，就像它们一样。

所以我这样做：

my $result;
my $script= 'the script written above';
while ( $script =~ m/(\w)\(\'.+\'\);/i){
      callfunction($1,$2,$result); #the function that handles the calls
}

（我认为这有效，未检查）

但问题是我需要它更健壮，我认为必须有一个替代正则表达式的方法，并且能够检查错误的语法、删除空格和添加注释。

Answer 1

如果你想变得更健壮，也许看看RPC - JSON-RPC或XML-RPC都受益于底层健壮的解析器和规范。