[SRC][PL] Calculadora básica en perl

Calculadora básica en perl.

#!/usr/bin/perl
# Calculadora basica en perl.
use strict;
use warnings;
print “Mete el primer numero: “;
my $numero1 = ;
print “Mete el segundo numero: “;
my $numero2 = ;
print “n”;
print “n”;
print “– MENU –n”;
print “[1] Sumar.n”;
print “[2] Restar.n”;
print “[3] Multiplicar.n”;
print “[4] Dividir.n”;
print “n”;
print “Elige una opcion: “;
my $calculo = ;
if ($calculo == 1)
{
print “nLa suma es: “,$numero1+$numero2;
print “nn”;
}
if ($calculo == 2)
{
print “nLa resta es: “, $numero1-$numero2;
print “nn”;
}
if ($calculo == 3)
{
print “nLa multiplicacion es: “,$numero1*$numero2;
print “nn”;
}
if ($calculo == 4)
{
print “nLa division es: “,$numero1/$numero2;
print “nn”;
}
print “Profesor: San Google.n”;
print “Alumno: Eder A. López.n”;
print “n”;

# Written by: Eder A. López
#           : Dr. H47
#       Blog: www.whitesec.com.mx
#     E-mail: [email protected]
#       Date: Mayo de 2011
# End

NOTA: En codigo no necesita compilarse por si algunos no lo saben, es source scripting. Solo debeis ejecutarlo desde la consola de tu linux o unix con la siguiente instruccion #: ./ejemplo.pl

Suponiendo que tu fichero se llama ejemplo.pl

Dudas preguntad aqui.