Switch en Perl

Materia: Laboratorio de lenguajes de programación Semana #4
Tarea semanal.

Hola, en esta entrada les explicaré un programa que hice en Perl, en el cual utilizamos switch. El programa es sobre elegir entre sumas o restas, trata de algo sencillo, porque me gustaría enfocarme más en cómo elaborar el switch.


Paso 1. Hacemos lo de siempre, buscamos la localización de Perl en el Terminal. Escribimos "which perl", oprimimos Enter y nos aparece su ubicación. (Recordemos que esto lo hacemos para escribir su ubicación al principio de nuestro programa)

Paso 2. Tecleamos "emacs switchsuma.pl" emacs es el editor de texto donde escribiremos nuestro programa, y switchsuma.pl es el nombre que yo le pondré al programa. (La extensión .pl es por el lenguaje que estamos utilizando: Perl).

Paso 3. Oprimimos Enter y ya podemos comenzar a escribir nuestro código del programa.  Lo primero que haremos, es escribir la ubicación, anteponiendo #!, sería así: "#!/usr/bin/perl" Pasamos al siguiente renglón y escribimos: "use Switch;" esto lo ponemos para que el programa nos reconozca el uso del switch.

Paso 4. Declaramos nuestras variables. "my $var" esta será la que usaremos en nuestro switch; "my $num1" este será el primer número que escriba el usuario; "my $num2" este es el segundo número que escriba el usuario; "my $sum" será la suma de los dos número que se ingresen; "my $res" será la resta de los dos número que ingrese el usuario.

Paso 5. Ahora escribimos lo que queremos que se imprima en pantalla: "print "Este programa hace sumas o restas\n1- Suma\n2- Resta\n Oprima 1 para Sumas o 2 para Restas: ";"

Paso 6. En el siguiente renglón escribimos: "chomp($var=);" Esto es para que el número que ingrese el usuario, sea para la variable llamada $var.

Paso 7. Ahora ya comenzaremos a desarrollar nuestro switch. Escribimos lo siguiente:
    switch ($var) {
"   case 1 {
    print "Usted eligio Suma\n";
    print "Escriba el primer numero que quiera sumar: ";
    $num1=;
    print "Escriba el segundo numero que quiera sumar: ";
    $num2=;
    $sum=$num1+$num2;
    print "El resultado es: ", $sum; "

Después de escribir el switch y declarar la variable a la cual le asignaremos el switch, abrimos una llave, ya que todo lo que pongamos después de esta, será parte del switch. Escribimos nuestro case 1 y también abrimos una llave, indicando que todo lo que esté dentro de esta, será parte de nuestro primer case.

Paso 8. Cerramos el case 1 con una llave, y empezamos nuestro segundo case.
"    }
    case 2 {
    print "Usted eligio Resta\n";
    print "Escriba el primer numero que quiera restar: ";
    $num1=;
    print "Escriba el segundo numero que quiera restar: ";
    $num2=;
    $res=$num1-$num2;
    print "El resultado es: ",$res;
    }  "

Es el mismo procedimiento que en el primer case

Paso 9. Después de eso, escribimos lo siguiente:
" else {
    print "No esta esa opcion\n";
    }
}

print "\nFin del programa, adios\n";  "

else es para cuando el usuario oprima un número que no sea 1 o 2, es decir, que el número no sea ninguno de nuestros case; y en ese caso, se imprimirá en pantalla un mensaje diciéndole que esa opción no está disponible. Y también se coloca entre llaves { }

Por último, cerramos la llave indicando que ahí termina todo nuestro switch. Y escribimos lo que queremos que imprima en pantalla después de que el usuario haya terminado de usar el programa.

Paso 10. Ya que tenemos terminado el programa, lo probaremos. Regresamos al Terminal y damos autorización para ejecutarlo: "chmod u+x ./switchsuma.pl" y después llamamos al programa para ejecutarlo: "./switchsuma.pl"

Paso 11. Nos despliega el inicio del programa, donde nos da a elegir qué queremos, si sumar, o restar dos números. Primero elegiré Suma. (Oprimir 1)

Paso 12. Escribiré los números 10 y 15, para que el programa los sume.

El resultado es 25.

Paso 13. Ejecutamos de nuevo el programa para probar las restas. Yo escribiré los números 30 y 20.

El resultado es 10.

Y aquí termina esta entrada, espero que les haya ayudado para saber cómo usar switch en Perl.

Si tienen algo que decir, no duden en comentar.

Hasta luego.

Fuentes: http://perldoc.perl.org/Switch.html

Por último quiero agradecer a mi compañera Cecilia quien me pasó la página para poder saber utilizar el switch en el lenguaje Perl :)