evaluating expressions in here documents

[Jim Ockers]

Is there any concise method of fully evaluating the arithmetic
expressions in here documents, rather than just one level of
substitution?:

sub RotationMatrix {
    my $theta = $_[0] * 3.14159265 / 180.0;
    my $m = cos($theta);
    my $n = sin($theta);
    my $T = Math::MatrixReal->new_from_string(<<"ROTMATRIX");
[ $m**2   $n**2   2*$m*$n     ]
[ $n**2   $m**2  -2*$m*$n     ]
[ -$m*$n  $m*$n   $m**2-$n**2 ]
ROTMATRIX
    return $T };

Thanks,

-Jim



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]