Tutorial de Perl (parte 1)

Introducción

Me da flojera dar una introducción de Perl y sí a alguien le interesa ahí esta Wikipedia. para realizar los ejemplos utilicé una maquina con CentOS 5.3 y los ejemplos fueron editados con Emacs, se puede editar con cualquier programa como VIM o cualquier otro editor gráfico.

Imprimiendo un mensaje en pantalla

El programa mas sencillo es el de imprimir un mensaje, a este programa le llamaremos HolaMundo.pl

#!/usr/local/bin/perl
#Programa que imprime un mensaje
print "Este es un mensajen";    #imprime un mensaje

La primer linea nos indica que el programa se va a ejecutar con perl, esta linea puede variar de acuerdo al sistema y a la instalación.

Los comentarios al igual que en Bash comienzan con un # hasta el fin de línea.

Ejemplo

#este es un ejemplo de comentario

y para imprimir usamos la función print que en este caso imprimirá el mensaje entre comillas “Este es un mensaje”.

Ejenplo:

print 'Este es un mensaje que se va a mostrar en pantalla';

Cada fin de línea debe ir acompañado de su punto y coma ; como se muestra en el ejemplo.

Ejecutar el programa

Primero establecemos los permisos de ejecución, de los cursos básicos de Linux

[eddy@kaliman scripts]$ chmod +x HolaMundo.pl

y despues ejecutamos nuestro pequeño y simple programa

[eddy@kaliman scripts]$ ./HolaMundo.pl
Este es un mensaje

Variables

Las variables en Perl comienzan con el signo de $ y en ellas se puede almacenar enteros, cadenas, reales o referencias a otras variables, para usos prácticos no es necesario declarar una variable, pero si se quiere hacer se realiza de la siguiente manera:

my $variable

Y el tipo de variable esta en función de lo que en ellas se almacena, por ejemplo

$variable = 343;   #es un tipo de variable entera
$num      = 34.31; # es un tipo de variable real

Ejemplo

#!/usr/bin/perl

#programa que muestra el uso de variables en Perl
#declaracion de una variable
my $variable;
#asignacion de valores a las variables
$variable = "esta es una variablen";
$otra     = "tambien esta es una variablen";
$numero   = 12;
$puntFlot = 23.43;
$suma     = $numero + $puntFlot;
#mostramos las variables recientemente creadas
print $variable;                 #se muestra una variable tipo cadena
print $otra;                     #se muestra otra variable tipo cadena
print $numero;                   #imprime un numero
print $puntFlot;                 #imprime un numero de punto flotante
#imprimimos variables y texto
print "La suma de $numero y $puntFlot es $suman";

Y al momento de ejecutar nuestro programa tenemos lo siguiente

[eddy@kaliman Perlsources]$ ./variables.pl

esta es una variable

tambien esta es una variable

1223.43La suma de 12 y 23.43 es 35.43

Arreglos

Una declaración de arreglos siempre comienza con el símbolo @, al igual que en C se indexan desde 0 hasta el elemento n-1. Es de mencionar que para insertar o quitar un elemento de un arreglo se puede usar las funciones pop y shift

Ejemplo:

#!/usr/bin/perl
#programa que muestra como declarar y usar arreglos en Perl

#Declaracion de un arreglo
my @arreglo;
#asignacion de valores
@arreglo=("rana",34,"cafe",3.1416,"Aristoteles");
#agregamos un nuevo elemento a @arreglo
@arreglo[5]= 2.71828183;
#mostramos un elemento del arreglo
print "se muestra el cuarto elemento del arreglo @arreglo[3]n";
print "el ultimo elemento del arreglo es @arreglo[5]n";

#usamos la funcion push
print "Se insertara un nuevo elemento n";
push(@arreglo,"Emiliano Zapata");
print "el elemento numero 6 es @arreglo[6] n";
print "Se elimina el ultimo elementon";
#usamos la funcion pop para quitar el ultimo elemento
$elemento = pop(@arreglo);
print "el ultimo elemento $elemento fue eliminadon";

La salida de este programa es:

se muestra el cuarto elemento del arreglo 3.1416
el ultimo elemento del arreglo es 2.71828183
Se insertara un nuevo elemento
el elemento numero 6 es Emiliano Zapata
Se elimina el ultimo elemento
el ultimo elemento Emiliano Zapata fue eliminado

Operadores Aritméticos

Perl usa los operadores aritméticos que conocemos de C

Operadores Aritméticos
Operador	Ejemplo	Acción
Adición	$a = 45 + 33	suma 45 y 33 y lo almacena en $a
Sustracción	$a = 45 - 33	resta 33 a 45 y lo almacena en $a
Producto	$a = 45 * 33	multiplica 45 por 33 y lo almacena en $a
Division	$a = 45 / 33	divide 45 entre 33 y lo almacena en $a
Potencia	$a = 45 ** 10	eleva 45 a la décima potencia
Incremento	++$a	incrementa $a y lo guarda
Incremento	$a++	guarda $a y después incrementa el valor de $a
decremento	--$a	Decrementa el valor de $a y después almacena el valor
decremento	$a--	Almacena el valor de $a y después lo decrementa