File: demo.pl

package info (click to toggle)
libparse-recdescent-perl 1.967009%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, wheezy
  • size: 748 kB
  • ctags: 778
  • sloc: perl: 6,738; sh: 48; makefile: 13; ansic: 9
file content (25 lines) | stat: -rwxr-xr-x 371 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#! /usr/bin/perl -w

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");