解析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可以从底层强大的解析器和规范中受益。