One Hat Cyber Team
Your IP :
18.224.32.173
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
/
View File Name :
demo_matchrule2.pl
#!/usr/bin/perl -sw use vars qw($animal); use Parse::RecDescent; $RD_AUTOACTION = q{ $last = $item[1] }; $grammar = q { sequence: <rulevar: local $last> sequence: base <matchrule: after_$last >(3..) { [ $item[1], @{$item[2]} ] } | base sequence { $item[2] } base: /[ACGT]/ after_A: /[C]/ after_C: /[AG]/ after_G: /[CT]/ after_T: /[G]/ }; $parser = new Parse::RecDescent( $grammar ) or die "bad grammar; bailing"; local $/; use AutoDump; show $parser->sequence(<DATA>); __DATA__ AAACTTTAAAACGTGCGCACGTGTAAAAAA