Perl «Слишком много ошибок» Ошибка

Question

Это моя первая кодировка в Perl, и у меня возникают проблемы с ее запуском.

При попытке запустить его, он просто говорит Too many errors, что на самом деле не помогает, когда вы начинаете кодирование.

Вот мой код:

#!/usr/bin/perl 
use Modern::Perl; 

print "Gimme Number 1:" ; 
my $num1=<>; 

print "Gimme Number 2:" ; 
my $num2=<>; 

print "Gimme Number 3:" ; 
my $num3=<>; 

my $add=$num1 + $num2 + $num3; 
my $muti=$num1 * $num2 * $num3; 
my $div=$num1/$num3; 
my $rad=$num3 % $num2; 
my $sub=$num2 - $num3; 
my $big=$num1 * $num2/$num4; 

print "ADD:$add"; 
print "MUL:$muti"; 
print "DIV:$div"; 
print "MOD:$rad"; 
print "SUB:$sub"; 
print "EQT:$big"; 

Что я делаю неправильно? Благодарю.

Answer 1

Try проверка синтаксиса корректности в ЦМД perl -c <filename.pl> Всегда используйте эти 2 строки в исходном
use strict; use warnings; your perl code goes here. Это поможет вам показать, есть ли какие-либо ошибки или предупреждения, когда вы проверяете синтаксис.

Answer 2

Выполнение проверки компиляции perl -cw filename.pl ваших выходов кода:

Global symbol "$num4" requires explicit package name at foo line 20. 

Что говорит о том, что вы должны объявить $num4 и добавить строку ввода для него в верхней части, или, как говорит Schwern, что $num4 опечатка для $num3.

Answer 3

Я считаю, что вы использовали $new4 вместо $ new3 или какой-либо другой переменной. линия, которая дает выпуск является

my $big=$num1 * $num2/$num4;

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