One Hat Cyber Team
Your IP :
18.188.19.24
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_precalc.pl
#!/usr/bin/perl -ws BEGIN { unless (-f "Calc.pm") { print "You first need to build Calc.pm.\n\n", "Try: perl -MParse::RecDescent - calc_grammar Calc\n", " or: demo_buildcalc.pl\n\n"; exit; } } use Parse::RecDescent; use Calc; sub evalop { # my (@list) = @{[@{$_[0]}]}; my (@list) = @{$_[0]}; my $val = shift(@list)->(); while (@list) { my ($op, $arg2) = splice @list, 0, 2; $op->($val,$arg2->()); } return $val; } my $parse = Calc->new() or die "bad grammar"; print "> "; while (<DATA>) { # FOR DEMO CHANGE TO: while (<DATA>) print $parse->main($_), "\n\n> "; } __DATA__ $x = 2 $y = 3 +1-1+1-1+1-1+1-1+1 7*7-6*8 121/(121/11)/121*11 1/(10-1/(1/(10-1))) $x * $y foreach $i (1..$y) $x = $x * 2 + $i $x
Simpan