Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
my $answer = $expr->EvalTree( $tree, 0 );

print "My answer is $answer\n";
  2. or download this
    58,59c58,59
< my $HighestOperPrec = 15;
...
-./*%+,<>\?:\(\);])@@) {
480d478
<       return $left **  $right if($oper eq '**');