Server IP : 85.214.239.14 / Your IP : 3.12.151.11 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /usr/share/doc/libparse-recdescent-perl/examples/ |
Upload File : |
#!/usr/bin/perl -sw use vars qw($animal); use Parse::RecDescent; $grammar = q { object: thing[article=>'a'](s) | thing[article=>'the'](s) thing: <matchrule:$arg{article}> <matchrule:${\scalar reverse $::animal}> a: 'a' the: 'the' cat: 'cat' { print "meow\n"; $::animal = 'god' } dog: 'dog' { print "woof\n" } }; unless( $parser = new Parse::RecDescent( $grammar )) { die "bad grammar; bailing\n"; } $/ = ""; while (defined ($input = <DATA>)) { $::animal = reverse 'cat'; print STDERR "parsing...\n"; unless( defined $parser->object( $input )) { die "error in input; bailing\n"; } print STDERR "...parsed\n"; } __DATA__ a cat a cat a cat a dog the cat the dog the dog the dog the dog a dog