Category Archives: Perl

[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: dr.h47@live.com.mx
#       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.

[SRC][PL] Declararacion de variables en perl

Es un ejemplo de como se delcaran variales, se muestra como se pasa un valor de una variable a otra.

#!/usr/bin/perl
# Script en el cual se declara una variable y luego mostramos su valor por la pantalla.
print “n”;
print “Declarando mi primer variable en perln”;
print “n”;
my $hola;
# Y le asigano valores
$hola=”Hola mundo crueln”;
$adios=”bytez…n”;
# Y los escribimos en pantalla
print $hola;
$hola=777;
print “Mira el número: $holan”;
print “mareate y $adios”;
print “n”;
print “n”;
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: dr.h47@live.com.mx
#       Date: Marzo de 2011
# End

[SRC][PL] Hola mundo en perl

Este source es el tipico con el que casi todo chaval se incia en la programación, pues aqui solo me muestra un mensaje cruel al mundo jejeje.

#!/usr/bin/perl
# Script que muestra el mensaje de Hola mundo en el interprete de comandos
#
printf “n”;
printf “Hola mundo cruel…n”;
printf “n”;
printf “Profesor: San Google.n”;
printf “Alumno: Eder A. López.n”;
printf “n”;
printf “n”;

# Written by: Eder A. López
#           : Dr. H47
#       Blog: www.whitesec.com.mx
#     E-mail: dr.h47@live.com.mx
#       Date: Marzo de 2011
# End

Sin nada que comentar, esta refacilisimo.

[SRC][PL] Script que hace un bucle tipo FOR.

He aqui el SRC.

#!/usr/bin/perl
# Es un script que pide un mensaje y lo muestra 7 veces en pantalla
print “Mete tu fiero mensaje: “;
$message=;
chomp($message);
$message=”$message n” x7;
print “$messagen”;
print “n”;
print “n”;
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: dr.h47@live.com.mx
#       Date: Marzo de 2011
# End

Servios pa lo querais.