Breve Introducción al Manejo de Excepciones

Si se desea controlar las interrupciones que puedan ocurrir durante la entrada podemos establecer un código que maneje la señal INT, la cual es producida cuando se teclea CTRL-C. El manejador debe ser una subrutina o una referencia a una subrutina. He aqui un ejemplo:

lhp@europa:~/projects/perl/src/perltesting$ cat -n io.pl
     1  #!/usr/bin/perl -w
     2  use strict;
     3
     4  $SIG{INT} = sub {
     5    print "¡Que forma tan violenta de terminar!\n";
     6    exit(1);
     7  };
     8
     9  print "Tu nombre: ";
    10  my $x = <>;
    11  chomp($x);
    12  print "Hola $x\n";

Aun cuando es adelantar mucho, la expresión $SIG{INT} denota la entrada INT del hash/diccionario %SIG. Un hash puede verse como una tabla con dos columnas, donde la de la izquierda almacena las claves y la de la derecha los valores. Una variable hash se prefija con el sımbolo %.

%a = ( 'x', 5, 'y', 3); # llena 2 elementos del hash 

Los elementos individuales de un hash se acceden prefijando el nombre del hash de un $ seguido de la clave entre llaves:

%a = ( 'x', 5, 'y', 3); 
$a{x} = 7;
print  $a{x}; #  imprime: 7
print $a{'x'};  # imprime: 7
print $a{'y'};  # imprime: 3

En el interior de las llaves, si la clave es un identificador (incluyendo el guión bajo) se pueden omitir las comillas:

La palabra sub seguida de un código retorna un escalar que es una referencia a una subrutina cuya implementación viene dada por dicho código. Vea el siguiente ejemplo con el depurador:

casiano@tonga:/tmp$ perl -wde 0
main::(-e:1):   0
  DB<1> $x = sub { print "Hola mundo\n" }
  DB<2> $x->()
Hola mundo

Si ejecutamos el programa de ejemplo anterior obtenemos una salida como:

lhp@europa:~/projects/perl/src/perltesting$ ./io.pl
Tu nombre: Juan
Hola Juan
Si presionamos CTRL-C se produce la salida:
lhp@europa:~/projects/perl/src/perltesting$ ./io.pl
Tu nombre: ¡Que forma tan violenta de terminar!

Casiano Rodríguez León
Licencia de Creative Commons
Principios de Programación Imperativa, Funcional y Orientada a Objetos Una Introducción en Perl/Una Introducción a Perl
por Casiano Rodríguez León is licensed under a Creative Commons Reconocimiento 3.0 Unported License.

Permissions beyond the scope of this license may be available at http://campusvirtual.ull.es/ocw/course/view.php?id=43.
2012-06-19