- cpanminus をインストールする。
bash-3.2$ git clone git://github.com/miyagawa/cpanminus.git Cloning into cpanminus... remote: Counting objects: 3355, done. remote: Compressing objects: 100% (1284/1284), done. remote: Total 3355 (delta 1646), reused 3089 (delta 1508) Receiving objects: 100% (3355/3355), 649.60 KiB | 146 KiB/s, done. Resolving deltas: 100% (1646/1646), done. bash-3.2$ cd cpanminus bash-3.2$ perl Makefile.PL Generating bin/cpanm from cpanm Checking if your kit is complete... Looks good Writing Makefile for App::cpanminus bash-3.2$ make install cp lib/App/cpanminus/script.pm blib/lib/App/cpanminus/script.pm cp lib/App/cpanminus.pm blib/lib/App/cpanminus.pm cp bin/cpanm blib/script/cpanm /usr/bin/perl.exe -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/cpanm Manifying blib/man1/cpanm.1 Manifying blib/man3/App.cpanminus.3pm Installing /usr/lib/perl5/site_perl/5.10/App/cpanminus.pm Installing /usr/lib/perl5/site_perl/5.10/App/cpanminus/script.pm Installing /usr/share/man/man1/cpanm.1 Installing /usr/share/man/man3/App.cpanminus.3pm Installing /usr/local/bin/cpanm Appending installation info to /usr/lib/perl5/5.10/i686-cygwin/perllocal.pod
- Parse::RecDescent をインストールする。
bash-3.2$ /usr/local/bin/cpanm -f Parse::RecDescent --> Working on Parse::RecDescent Fetching http://search.cpan.org/CPAN/authors/id/D/DC/DCONWAY/Parse-RecDescent-1.965001.tar.gz ... OK Configuring Parse-RecDescent-1.965001 ... OK Building and testing Parse-RecDescent-1.965001 ... OK Successfully installed Parse-RecDescent-1.965001
- recdescent_sample01.pl
#!/usr/bin/env perl use strict; use warnings; use Parse::RecDescent; my $grammar = q( sql : /\"([\w\s]+)\"/ { $item[1] =~ /\"([\w\s]+)\"/; $return = $1; } ); my $parser = Parse::RecDescent->new($grammar); my $text = <<TEXT; "SELECT ENAME FROM EMP" TEXT print $parser->sql($text) . "\n";
実行してみると、
bash-3.2$ ./recdescent_sample01.pl SELECT ENAME FROM EMP
こんな感じ。
参考
追記(2011/01/31):
csourceparser.pl を使ってみた。
bash-3.2$ wget http://search.cpan.org/src/DCONWAY/Parse-RecDescent-1.965001/demo/demo_another_Cgrammar.pl bash-3.2$ mv demo_another_Cgrammar.pl csourceparser.pl bash-3.2$ find ./src -type f -name '*.pc' -print0|xargs -0 -n1 ./csourceparser.pl -f
