Parse-Yapp

2008-08-21

Parse::Yapp gdgd日記(1)

perl yacc Parse-Yapp

Foo.yp %{ use strict; use warnings; use Data::Dumper; %} %% body : section | body section { shift; return join( "\n" , @_ ); } ; section : h1 { my ($self, @patterns) = @_; return '<h1>' . $patterns[0] . '</h1>'; } | letters RETURN ; h1 : ASTARISK l…

2008-08-15

Parse::Yapp gdgd日記(0)

perl yacc Parse-Yapp

Parse::Yapp入門した。正直さっぱりだ。 h1にするこんなやつを *hoge123あこうするだけ <h1>hoge123あ</h1> Hoge.pm %{ use strict; use warnings; use Data::Dumper; %} %% body : | h1 { my ($self, @patterns) = @_; return '<h1>' . $patterns[0] . '</h1>'; } ; h1 : '*…