perlquestion
NateTut
Consider the following snippet:
<code>
$Problem =~ /(\d*)\s(.)\s(\d*)/;
my $Number1 = $1;
my $Number2 = $3;
my $Operator = $2;
my $Answer;
if($Operator eq '+')
{
$Answer = $Number1 + $Number2;
}
elsif($Operator eq '-')
{
$Answer = $Number1 - $Number2;
}
elsif($Operator eq '*')
{
$Answer = $Number1 * $Number2;
}
elsif($Operator eq '/')
{
$Answer = $Number1 / $Number2;
}
</code>
$Problem is in a format like: 1 + 1 =<br><br>
The $Operator can be one of the following: +-*/<br><br>
The code works fine but I was wondering if there is a better (or at least more compact or even different) way?