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
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
perl-Parse-RecDescent
/
demo
/
Edit File:
demo_template.pl
#!/usr/bin/perl -sw use Parse::RecDescent; $grammar = q { list: <leftop: <matchrule:$arg{rule}> /$arg{sep}/ <matchrule:$arg{rule}> > function: 'func' ident '(' list[rule=>'param',sep=>';'] ')' {{ name=>$item{ident}, param=>$item{list} }} param: list[rule=>'ident',sep=>','] ':' typename {{ vars=>$item{list}, type=>$item{typename} }} ident: /\w+/ typename: /\w+/ }; unless( $parser = new Parse::RecDescent( $grammar )) { die "bad grammar; bailing\n"; } while (defined($input = <DATA>)) { use Data::Dumper; print Data::Dumper->Dump([$parser->function( $input )]); } __DATA__ func f (a,b,c:int; d:float; e,f:string) func g (x:int) func h (y;x)
Simpan