File: demo.pl

package info (click to toggle)
libparse-recdescent-perl 1.95.1%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 604 kB
  • ctags: 774
  • sloc: perl: 6,362; makefile: 57; ansic: 9
file content (24 lines) | stat: -rw-r--r-- 377 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
#! /usr/local/bin/perl -sw

package Foo;
use base Parse::RecDescent;

sub print_cat {
	print "Found ", @_[1..$#_], "\n";
}

package main;

$parse = new Parse::RecDescent(<<'EOG');
	input	 :	"cat"
				{ $thisparser->print_cat($item[1]); }
		 |	"dog"
				{ $thisparser->print_cat($item[1]); }
EOG

$parse = bless $parse, "Foo";

$parse->input("cat");
$parse->input("doggone");