One Hat Cyber Team
Your IP :
3.147.55.1
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_mccoy.pl
#!/usr/bin/perl -sw # DAMMIT, JIM, I'M A DOCTOR, NOT A PERL PROGRAM! use Parse::RecDescent; $grammar = q{ McCoy : curse ',' name ", I'm a doctor, not a" profession '!' | possessive 'dead,' name '!' | <error> curse : 'Dammit' | 'Goddammit' name : 'Jim' | 'Spock' | 'Scotty' profession: 'magician' | 'miracle worker' | 'Perl hacker' possessive: "He's" | "She's" | "It's" | "They're" }; $parse = new Parse::RecDescent ($grammar); print "> "; while (<>) { $parse->McCoy($_); print "> "; }
Simpan