Calculadora /p Iniciantes !

[podolcee]

Calculadora para iniciantes !
eu fiz essa calculadora no meu primeiro dia estudando perl rsrs

#!/usr/bin/perl
START:
LOOP:
print "\n";
print "=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+\n";
 print "|Calculadora 2.0 codada por: podolcee |\n";
print "=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+\n";

print "+=+=+=+=+=+=+=+=+\n";
print "[1] Somar       |\n";
print "[2] Subtrair    |\n";
print "[3] Dividir     |\n";
print "[4] Multiplicar |\n";
print "+=+=+=+=+=+=+=+=+\n";

my $num1;
my $num2;
my $perg;
my $res;

print "\n";
print "Informe o tipo da Operacao:\t\n";
$perg = <STDIN>;
chomp ($perg); 
print "\n";

if ($perg > '4'){
print "Erro Opcao Invalida, Tente Novamente !\n";
system(pause);
system(cls);
goto LOOP
}

print "Informe primeiro Numero:\t\n";
$num1 = <STDIN>;
print "\n";

print "Informe segundo Numero\t\n";
$num2 = <STDIN>;
print "\n";

if ($perg == '1'){
$res = $num1 + $num2;
}
if ($perg == '2'){
$res = $num1 - $num2;
}
if ($perg == '3'){
$res = $num1 / $num2;
}
if ($perg == '4'){
$res = $num1 * $num2;
}
print "======================\n";
print "O resultado e: $res\n";
print "======================\n";
system(pause);
system(cls);
goto START 

[acpguedes]

acho que falta um jogo de ";" depois de "goto LOOP" e "goto START"...

Não acho que o uso de goto seja necessário nesse caso!
Dependendo do uso se encaixa como um mau hábito na programação e deixa seu programa mais lento, ou seja, POG!

Existem outros metodos, como usar um laço pra isso!

Mas parabens... calculadora é um dos primeiros passos na aprendizagem!

[podolcee]

Sim, tem razão acpguedes
mais como eu falei !
eu fiz essa calculadora no meu primeiro dia estudando perl rsrs

[CoderSc]

Show de bola, você disse que tinha feito no 1º dia estudando perl, então eu acho que você terá um bom futuro no perl.