calculadora hecha en perl para linux

hola a todos vengo a compartir con ustedes un poco de este potente lenguaje de programación muy desconocido para la mayoría de las personas


que es perl

dijoerl es un lenguaje de programación diseñado por Larry Wall en 1987. Perl toma características del lenguaje C, del lenguaje interpretado bourne shell (sh), AWK, sed, Lisp y, en un grado inferior, de muchos otros lenguajes de programación.
Estructuralmente, Perl está basado en un estilo de bloques como los del C o AWK, y fue ampliamente adoptado por su destreza en el procesado de texto y no tener ninguna de las limitaciones de los otros lenguajes de script.[/quote]

bueno sin mas preámbulo vayamos directamente al código fuente de esta calculadora programada en perl usando el caso herencia o subrutina


dijo:esta contiene un menu donde puedes elegir entre suma, resta, multiplicacion y division[/quote]




aca les dejo el codigo fuente del lenguaje perl


dijo:este debes guardarlo como Calculadora.pm[/quote]

[color=#000000]
package Calculadora;
use strict; 

sub new{
my $this=shift; 
my $class=ref($this) || $this; 
my $self={};
$self->{SUMA}=undef; 
$self->{RESTA}=undef; 
$self->{MULTIPLICACION}=undef;
$self->{DIVISION}=undef;
bless $self, $class; 
return ($self); 
sub suma{
my $self=shift; 
$self->{SUMA}=shift if (@_);
return $self->{SUMA};
}
sub resta{
my $self=shift;
$self->{RESTA}=shift if (@_);
return $self->{RESTA};
}
sub multiplicacion{ 
my $self=shift; 
$self->{MULTIPLICACION}=shift if (@_);
return $self->{MULTIPLICACION};
}
sub division{ 
my $self=shift; 
$self->{DIVISION}=shift if (@_);
return $self->{DIVISION};
}

sub DESTROY{

my $self=shift; 
delete($self->{SUMA});
delete($self->{RESTA});
delete($self->{MULTIPLICACION});
delete($self->{DIVISION});


}
}
1;

[/color]

dijo:recuerden que estamos trabajando en caso de herencia o subrutinas[/quote]


dijo:aca les dejo el archivo padre o el que hace el llamado a la subrutina[/quote]


dijo:este debes guardarlo como Calculadora.pl[/quote]







[color=#000000]

#!/usr/bin/perl
use Calculadora;
system ("clear");
$r=0;
while($r==0){
&menu();
if ($opc==1){
&suma();}
elsif ($opc==2){
&resta();
}
elsif ($opc==3){
&multiplicacion();
}
elsif ($opc==4){
&division();
}
elsif ($opc==5){
print "nfin del programan";
exit(1);
}
print "ntttpresiones 0 para retornar al menu";
$r=<STDIN>;
} 
sub menu()
{
system ("clear");
print "nttt***CALCULADORA***nnn";
print "nttt1-SUMAR:n";
print "nttt2-RESTAR:n";
print "nttt3-MULTIPLICAR:n";
print "nttt4-DIVIDIR:n";
print "nttt5-SALIR......................:";
$opc=<STDIN>;
}
sub suma()
{
system ("clear");
use Calculadora;
$uno= Calculadora->new();
print "nttt***Ingrese Datos***nnn";
print "ntttIngrese el numero:n";
$uno->suma($suma1=<STDIN>);
print "ntttIngrese otro numero:n";
$uno->suma($suma2=<STDIN>);
$suma3=$suma1+$suma2;
print "total de los numeros sumados es:$suma3n";
}
sub resta()
{
system ("clear");
use Calculadora;
$uno= Calculadora->new();
print "nttt***Ingrese Datos***nnn";
print "ntttIngrese el numero:n";
$uno->resta($resta1=<STDIN>);
print "ntttIngrese otro numero:n";
$uno->resta($resta2=<STDIN>);
$resta3=$resta1-$resta2;
print "total de los numeros restados es:$resta3n";
}
sub multiplicacion()
{
system ("clear");
use Calculadora;
$uno= Calculadora->new();
print "nttt***Ingrese Datos***nnn";
print "ntttIngrese el numero:n";
$uno->multiplicacion($multiplicacion1=<STDIN>);
print "ntttIngrese otro numero:n";
$uno->multiplicacion($multiplicacion2=<STDIN>);
$multiplicacion3=$multiplicacion1*$multiplicacion2;
print "total de los numeros multiplicados es:$multiplicacion3n";
}
sub division()
{
system ("clear");
use Calculadora;
$uno= Calculadora->new();
print "nttt***Ingrese Datos***nnn";
print "ntttIngrese el numero:n";
$uno->division($division1=<STDIN>);
print "ntttIngrese otro numero:n";
$uno->division($division2=<STDIN>);
$division3=$division1/$division2;
print "total de los numeros divididos es:$division3n";
}


[/color]






dijo:esta calculadora esta programada para ser usada en el sistema operativo linux como hacemos para usarla aca les dejo los pasos[/quote]


dijo:primero abris la terminar y hay que darle permisos de ejecucion colocas: chmod 777 Calculadora.pl[/quote]

luego de obtener los permisos vamos directamente a ejecutarla

dijo:colacas en la terminar: ./Calculadora.pl[/quote]

y listo espero que sea de su agrado


mas adelante seguiré colocando mas cosas sobre distintos lenguajes de programacion