One Hat Cyber Team

Your IP : 18.217.0.242

Server IP : 103.133.214.160

Server : Linux venus.ewebguru.net 4.18.0-553.30.1.el8_10.x86_64 #1 SMP Tue Nov 26 02:30:26 EST 2024 x86_64

Server Software : Apache/2

PHP Version : 8.1.30

Buat File | Buat Folder

Dir : ~/usr/share/doc/perl-Parse-RecDescent/demo/

View File Name : demo_implicit.pl

#!/usr/bin/perl -sw

# IMPLICIT SUB RULES, OKAY!

use strict;
use Parse::RecDescent;

my $grammar =
q{
	{ my $state = "happy"; }

	testimony	: declaration(s)
				{ print "Ended up $state\n"; }

	declaration	: 'I' ('like'|'loathe')(s) ('ice-cream'|'lawyers')
				{ print "$item[3]\n";
				  $state = 'happy/sad'; }
			| 'I' ("can't"|"can") ('fly'|'swim')
				{ print "$item[3]\n";
				  $state = 'able/unable'; }
			| <error>

};

my $parse = new Parse::RecDescent ($grammar);
my $input;

while (defined ($input = <>))
{
	$parse->testimony($input) or print "huh?\n";
}