Привет ребята я пытаюсь научиться Perl и простой калькулятор Я пытаюсь запустить, но я получаю ошибку убежавшие из нескольких строк. Может ли кто-то момент этот новичок в правильном направлении.


# # #

Версия для печати 'Добро пожаловать в Калькулятор';
Версия для печати 'Вы хотели бы войти в калькулятор? Пожалуйста, введите Y или N ';
$ \u003d <stdin> перспективе;
chomp $ перспективе;
а ($ запустить \u003d\u003d Y)
(
(
Версия для печати 'Добавить \u003d A | Вычесть \u003d S | Умножить \u003d M | Разделить \u003d D | Экспонента \u003d E | Мода \u003d O';
Версия для печати 'Введите соответствующий номер в caluclation будет выполняться:';
известково $ \u003d <stdin>;
chomp $ известково;
Версия для печати 'Пожалуйста, введите первое значение:';
$ A \u003d <stdin>;
chomp $ A;
Версия для печати 'Введите второе значение:';
$ B \u003d <stdin>;
chomp $ B;

если ($ известково \u003d\u003d а)
(
$ ответ \u003d $ A + $ B;
)
elsif ($ известково \u003d\u003d S)
(
$ ответ \u003d $ A - $ B;
)
elsif ($ известково \u003d\u003d м)
(
$ ответ \u003d $ A * $ B;
)
elsif ($ известково \u003d\u003d д)
(
$ ответ \u003d $ A / $ B;
)
elsif ($ известково \u003d\u003d д)
(
$ ответ \u003d $ A ** $ B;
)
elsif ($ известково \u003d\u003d O)
(
$ ответ \u003d $ A% $ B;
)
Print "Ответ $ ответа".
)
Версия для печати 'Вы хотели бы совершить еще один расчет? Пожалуйста, введите Y или N ';
$ \u003d <stdin> перспективе;
chomp \u003d $ перспективе;
)


Версия для печати 'применение в настоящее время прекращена.';

# # #

if ($answer eq "a" )

Я рекомендую вам создать подпрограмму с калькулятором функций внутри.
Попросите вашего скрипта просим, если пользователь хочет ввести калькулятор - вызов подпрограммы.
Попросите вашего скрипта просим, если пользователь хочет продолжать - если да, то позвоните в подпрограмму. Если нет, то выход.

Edit: я смотрю на формат не синтаксис ... Avron плохо!

Те же ошибки, когда я заменить \u003d\u003d с эк.

Строка, сравнение будет в Y / N - не математика

Изменить значения по сравнению со строкой для чисел, но я до сих пор получают одну и ту же ошибку. "Синтаксическая ошибка .. может быть побег нескольких линия"

print 'Welcome to the Calculator';
print 'Would you like to enter the calculator? Please Type y or n';
$run = <stdin>;
chomp $run;
while ($run == y)
    {
        {    
        print 'Add = 1 | Subtract = 2 | Multiply = 3 | Divide = 4 |Exponent = 5 | Mod = 6 ';
        print 'Enter the corresponding number to the caluclation to be performed:';
        $calc = <stdin>;
        chomp $calc;
        print 'Please enter the first value: ';
        $A = <stdin>;
        chomp $A;
        print 'Please enter the second value: ';
        $B = <stdin>;
        chomp $B;
        
        if($calc == 1)
            {
            $answer = $A + $B;
            }
        elsif($calc == 2)
            {
            $answer = $A - $B;    
            }
        elsif($calc == 3)
            {
            $answer = $A * $B;
            }    
        elsif($calc == 4)
            {
            $answer = $A / $B;
            }    
        elsif($calc == 5)
            {
            $answer = $A ** $B;
            }
        elsif$4calc == 6)
            {
            $answer = $A % $B;
            }
        print "The answer is $answer .";
        }
    print 'Would you like to perform another calculation? Please Type y or n';
    $run = <stdin>;
    chomp = $run;
    }


print 'The application is now terminated.';

исправить это:

elsif$4calc == 6)

elsif ($calc == 6)