проблема с конструкцией "if"

[Валикос]

есть массив, который содержит два числа и операцию между ними(плюс, минус, уможить, разделить)
$elems[1] и есть значение операции, принимаемые значения могут быть такими +, - ,*, /
мне нужно получить значение этих чисел, если я делаю проверку на операцию через конструкцию типа

Код:

my $a = $elems[0];
my $b = $elems[2];
if ($elems[1] eq '+'){my $result = addval($a, $b)}

происходит ошибка использования неинициализированной  переменной $result и соответственно вычисление не происходит
при такой записи

Код:

my $a = $elems[0];
my $b = $elems[2];
my $result = addval($a, $b);

все вычисляется, мне нужно сопоставлять значение операции и вызывать соответствующие подпрограммы, eval использовать нельзя
подскажите в чем может быть проблема
вот на всякий случай код подпрограммы

Код:

sub addval{
my $value1 = shift @_;
my $value2 = shift @_;
my $res = $value1 + $value2;
return $res;

[McZim]

Валикос, Если честно я не понял. Есть конкретно текст задания? или это какая то твоя задумка, тогда разъясни по подробней. То что у тебя сейчас написано в addval это какая то ерунда, вот допустим что будет если передать туда два значения которые должны умножиться? Результат будет не верен так как у тебя там только сложение.

[RXL]

Валикос, да, довольно коряво описано. Попробуй еще раз донести...

Код:

my $a = $elems[0];
my $b = $elems[2];
if ($elems[1] eq '+'){my $result = addval($a, $b)}

происходит ошибка использования неинициализированной  переменной $result и соответственно вычисление не происходит
при такой записи

Где происходит ошибка?

У тебя пропущена точка с запятой после addval(...).

Много лишнего. Например, зачем промежуточные переменные?

Кстати, понимаешь ли ты смысл ключевого слова my?

[Валикос]

смысл слова my теперь понимаю, в нем то и была причина моих бед
я разобрался, тему можно закрывать