One Hat Cyber Team
Your IP :
18.118.254.77
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
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
perl-Parse-RecDescent
/
demo
/
Edit File:
demo_operator.pl
#!/usr/bin/perl -sw # PARSE LOGICAL EXPRESSIONS use Parse::RecDescent; $grammar = q{ expr : '[' <leftop: atom /,?/ atom>(?) ']' { $item[2] } | '[[' atomlist ']]' { $item[2] } | disj no_garbage { $item[1] } | <rightop: atom '=' num> | <leftop: atom '<<' num> atomlist: <leftop: atom /,?/ atom> no_garbage: /^\s*$/ | <error: Trailing garbage: $text> disj : <leftop: conj /(or)/ conj > conj : <leftop: unary 'and' unary > and : 'and' unary : 'not' atom | '(' expr ')' { $item[2] } | atom atom : /(?!and|or)[a-z]/ num : /\d+/ }; $parse = new Parse::RecDescent ($grammar) or die "bad grammar"; $input = ''; use Data::Dumper; print "> "; while (<>) { if (/^\.$/) { print STDERR Data::Dumper->Dump([$parse->expr($input)]); $input = '' } else { $input .= $_ } print "> "; }
Simpan