递归下降解析器模块Parse::RecDescent的例子

hztj2005

看过编译原理的应该能看懂这个简单的网上例子。我试了下，可以运行。

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use Parse::RecDescent;
   
4. use Data::Dumper;
   
5. 
   
6. use vars qw(%VARIABLE);
   
7. 
   
8. # Enable warnings within the Parse::RecDescent module.
   
9. 
   
10. $::RD_ERRORS = 1; # Make sure the parser dies when it encounters an error
    
11. $::RD_WARN   = 1; # Enable warnings. This will warn on unused rules &c.
    
12. $::RD_HINT   = 1; # Give out hints to help fix problems.
    
13. 
    
14. my $grammar = <<'_EOGRAMMAR_';
    
15. 
    
16. # Terminals (macros that can't expand further)
    
17. #
    
18. 
    
19. OP       : m([-+*/%])      # Mathematical operators
    
20. INTEGER  : /[-+]?\d+/      # Signed integers
    
21. VARIABLE : /\w[a-z0-9_]*/i # Variable
    
22. 
    
23. expression : INTEGER OP expression
    
24.           { return main::expression(@item) }
    
25.           | VARIABLE OP expression
    
26.           { return main::expression(@item) }
    
27.           | INTEGER
    
28.           | VARIABLE
    
29.           { return $main::VARIABLE{$item{VARIABLE}} }
    
30. 
    
31. print_instruction  : /print/i expression
    
32.                   { print $item{expression}."\n" }
    
33. assign_instruction : VARIABLE "=" expression
    
34.                   { $main::VARIABLE{$item{VARIABLE}} = $item{expression} }
    
35. 
    
36. instruction : print_instruction
    
37.            | assign_instruction
    
38. 
    
39. startrule: instruction(s /;/)
    
40. 
    
41. _EOGRAMMAR_
    
42. 
    
43. sub expression {
    
44. shift;
    
45. my ($lhs,$op,$rhs) = @_;
    
46. $lhs = $VARIABLE{$lhs} if $lhs=~/[^-+0-9]/;
    
47. return eval "$lhs $op $rhs";
    
48. }
    
49. 
    
50. my $parser = Parse::RecDescent->new($grammar);
    
51. 
    
52. 
    
53. print "a=2\n";             $parser->startrule("a=2");
    
54. print "a=1+3\n";           $parser->startrule("a=1+3");
    
55. print "print 5*7\n";       $parser->startrule("print 5*7");
    
56. print "print 2/4\n";       $parser->startrule("print 2/4");
    
57. print "print 2+2/4\n";     $parser->startrule("print 2+2/4");
    
58. print "print 2+-2/4\n";    $parser->startrule("print 2+-2/4");
    
59. print "a = 5 ; print a\n"; $parser->startrule("a = 5 ; print a");
    
60. exit;
    

复制代码

104359176

这个模块的作者在澳洲演讲，门票价格还挺贵。看样很多人喜欢这个模块。

这个模块也算是一个巅峰之作了。我测试过，非常慢。

不过我写了一个程序，专门用于定制语法，解析代码。

不但内嵌代码，还能直接返回相应的数据结构。

语言本来是非常精确的东西，不知道此类模块返回的大都是哈希+数组类的数据结构。
哈希本来会丧失顺序。虽然有可选的输出选项。但感觉用的不方便。

Perl6 也是做这个的，但速度也很慢。不知道 Perl6 为什么定义那么复杂的语法。让 Perl6 的速度一直提不上来。