Help for this page

Select Code to Download

Select or download this

  DB<137> %allowed_ops=map { $_=>$_} qw# + - * / #
 => ("+", "+", "-", "-", "*", "*", "/", "/")
...
  DB<140> print "$statement = ", eval $statement
 => 1
4 + 5 = 9