One Hat Cyber Team
Your IP :
18.117.127.127
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_autoscoresep.pl
#!/usr/bin/perl -ws use Parse::RecDescent; $RD_WARN = undef; $RD_TRACE=1; my $parse = Parse::RecDescent->new(<<'EOGRAMMAR'); line: <autoscore: @{$item[1]}> line: seplist[sep=>','] | seplist[sep=>':'] | seplist[sep=>" "] seplist: <skip:""> <leftop: /[^$arg{sep}]*/ "$arg{sep}" /[^$arg{sep}]*/> EOGRAMMAR while (<DATA>) { chomp; my $res = $parse->line($_); print '[', join('][', @$res), "]\n"; } __DATA__ c,o,m,m,a,s,e,p,a,r,a,t,e,d c:o:l:o:n:s:e:p:a:r:a:t:e:d s p a c e s e p a r a t e d m u:l t i,s:ep ar:a,ted m u:l,t i,s:ep ar:a,ted m:u:l,t i,s:ep ar:a,ted
Simpan