One Hat Cyber Team
Your IP :
18.191.222.156
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_bad.pl
use v5.10; use warnings; # SHOWCASE VARIOUS ERROR MESSAGES WITH A VERY UNWELL GRAMMAR use Parse::RecDescent; open (Parse::RecDescent::ERROR, ">-") or die; $grammar = q{ <warn:3> typedef : a ... ...! ... b typedef : a ...!...!...!...! b | /type/ ident /has/ field(s) /end type/ { $result = $item[2]; } | /type/ ident /is/ ident { $result = $item[2]; } | quasit(s) | quasit(-1..3) | quasit(..0) | field(?) field end | <error> quasit "here" ...!/why/ Extend: extend Replace: replace $%^@# field : /field/ ident /is/ ident | field quasit | !quasit(s?) !| #NOTHING typedef : whatever package somewhereelse !ident : /[A-Za-z]\w*???/ { $result = $item[1]; } quasit : field | typedef }; new Parse::RecDescent ($grammar) || die "Bad grammar! No biscuit!\n";
Simpan