perl - 解析并将4Test转换为Perl

我想将4Test脚本转换为Perl。我一直在Perl中使用Parse::RecDescent，但仍然不知所措。这是一个例子。

4Test的示例如下所示:

ParseSMSPlans (STRING sDir)
{
STRING sFile;
STRING sDirSMSPlan = sDir + "sms_plans\";
STRING sDirPlan = sDir + "plan\";
STRING sDirDeal = sDir + "deal\";
STRING sDirProduct = sDir + "product\";
STRING sLine, sType, sName;
HFILE hIn;
FILEINFO fiFile;
LIST OF FILEINFO lfInfo = SYS_GetDirContents (sDirSMSPlan);
       ...
}

...
这是我的Parse::RecDescent语法

my $grammar = q{

#-----------------identifiers and datatypes-------------------#

    identifier : /[a-z]\w+/
    binops : '+' | '-' | '/' | '*' | '%' | '**'
    lbinops: '!' | '<' | '>' | '>='| '<='| '&&'| '||' | '=='
    integer: /\d+/ {print "hello $item[-1]" if $::debugging;}
    number : /(\d+|\d*\.\d+)/ {print "hello $item[-1]" if $::debugging;}
    string : /"(([^"]*)(\\")?)*"/
    operation : number binops number operation(s?)
    datatype : /[a-zA-Z]\w*/
    definition : datatype expression(s) #{print "hello $item[-1]" if $::debugging;}
                |datatype expression(s) "=" expression(s) #{print "hello $item[-1] = $item[-2]" if $::debugging;}
    statement : ifexp | elsexp | elseifexp |forexp | feachexp | whexp | swcexp


#------------------Expressed Values-----------------------------#
    program : expression
    expression :  number {print $item[1] if $::debugging}
                | integer
                | assignment
                | operation
                | identifier binops expression
                | number binops expression

#------------------Conditionals---------------------------------------#

    ifexp  : 'if' '(' expression(s) ')' '{' expression(s) '}' elsexp(?)
    elsexp : 'else' '{' expression(s) '}'
    elseifexp: 'else' 'if' '(' expression(s) ')' '{' expression(s) '}'
    forexp : 'for' '(' expression ';' expression ';' expression ')' '{' expression(s)  }'
           | 'for' assignment 'to' number expression(s) | 'for' assignment 'to' number '{' expression(s) '}'
    feachexp : 'for each' expression 'in' expression '{' expression(s) '}'
    whexp  : 'while' '(' expression ')' '{' expression(s) '}'
    casest : 'case' expression(s /,/) ':'
    swcexp : 'switch' identifier '{' casest(s) '}' expression(s) 'default'
    assignment : identifier(s) '=' expression
};

因此，我正在考虑将“$”添加到每个变量名称中，并切碎
数据类型。尽管我已经完全掌握了语法，但大部分情况下我的语法还是有效的
进行了测试，但这只是因为Parse::RecDescent有点
我很难理解，我不确定这是否是最好的
完成任务的方法...或者最快的方法。

我主要担心的是，是否有人认为珠三角可以处理
我要它做还是简单(复杂)的正则表达式就足够了？我会
感谢任何人对此提供的任何帮助。

最佳答案

我可以建议您通过用子例程调用替换所有运算符表达式来简化4Test脚本。然后，您仍然可以将它们作为4Test脚本运行，从而证明它们有效，但是您可以大大简化解析问题-运算符表达式比直接过程调用要难得多。达到极限，此过程将产生4Test脚本，几乎可以由Perl + 4Test函数的某些替换例程直接运行。