|
version 1.8, 2000/10/11 13:33:33
|
version 1.9, 2000/10/30 20:05:19
|
|
Line 8 sub evaluate {
|
Line 8 sub evaluate {
|
| unless (defined $expression) { return ''; } |
unless (defined $expression) { return ''; } |
| my $result = ''; |
my $result = ''; |
| $@=''; |
$@=''; |
| $safeeval->reval('$_=q{'.$expression.'};'); |
$safeeval->reval('$_=q|'.$expression.'|;'); |
| if ($@ eq '') { |
if ($@ eq '') { |
| $safeeval->reval('{'.$decls.'$_=~s/(\$\{?[A-Za-z]\w*\}?)/(defined(eval($1))?eval($1):$1)/ge;}'); |
$safeeval->reval('{'.$decls.'$_=~s/(\$[A-Za-z]\w*)/(defined(eval($1))?eval($1):$1)/ge;}'); |
| if ($@ eq '') { |
if ($@ eq '') { |
| $result = $safeeval->reval('return $_;'); |
$result = $safeeval->reval('return $_;'); |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to run.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml