Tabla multiplicar en Perl

Materia: Laboratorio de Lenguajes de Programación    Semana #4
Tarea semanal

Hola, en esta entrada me gustaría explicar un programa que hice en Perl sobre tablas de multiplicar, trata de lo mismo que el que hice en Python (esta entrada) pero ahora en el lenguaje Perl con unas cuantas modificaciones. Y así poder apreciar la diferencia entre estos dos lenguajes. 

Paso 1. Abrimos el Terminal y pedimos la ubicación de Perl con "which perl" 

Paso 2. Nos vamos a emacs "emacs mult.pl" en este caso yo nombré al programa mult.pl (el .pl es por el lenguaje Perl)

Paso 3. Damos Enter y comenzamos a escribir nuestro programa. Primero escribimos la ubicación "#!/usr/bin/perl"  Declaramos variables, en este caso yo usaré dos: "my $i=1" "my $n" la $i será parte del ciclo while, el cual tomará los valores desde el 1 hasta el 10; y $n el cual será el número que ingrese el usuario al inicio del programa.

Paso 4. Escribimos lo que queremos que se imprima en pantalla. "print "\t Escribe el numero de la tabla que deseas obtener: ";"  (el \t significa una tabulación)

Paso 5.  Ponemos "$n=;" para que el dato que ingrese el usuario, sea para la variable $n

Paso 6. Escribimos "chomp ($n);"  y en el siguiente renglón lo siguiente: "print "La tabla de multiplicar del ",$n," es:\n"; " El chomp ($n) significa que elimina el salto de línea que se genera en el siguiente print.

Paso 7. Ahora comenzaremos nuestro ciclo while el cual comenzará desde el 1 hasta el 10. "while ($i<=10)" aquí no va el ;
En el siguiente renglón abrimos una llave { para dar comienzo a nuestro ciclo. Escribimos
"{chomp ($n);
print $n," X ", $i ," = ", $i*$n ,"\n";
$i++;
}"

El chomp ($n) es para eliminar el salto de línea generado en el print del siguiente renglón (como dijimos más arriba en esta misma entrada) Observemos que cuando queremos que se impriman las variables en pantalla las ponemos entre comas , excepto si van al inicio, en ese caso sólo se coloca la coma , al final, es decir, antes de que comiencen las comillas del print. Como lo hicimos en   print $n," X ", $i ," = ", $i*$n ,"\n";

Paso 8. Ahora que ya terminamos nuestro programa, lo vamos a probar. Nos regresamos al Terminal, damos autorización para ejecutar "chmod u+x ./mult.pl" y lo ejecutamos "./mult.pl"

Paso 9. Oprimimos Enter y nos aparece el programa que acabamos de hacer.

Paso 10. Nos pide un número del cual queremos la tabla de multiplicar, yo pondré el 6.

Y nos despliega toda la tabla de dicho número.

Aquí termina esta entrada, espero que les haya ayudado para conocer un poco más el lenguaje Perl.

Hasta luego.

Fuentes: http://decsai.ugr.es/~fjgc/perl/index2.htm