Introducción al Lenguaje PERL - Subrutinas

Otro aspecto de interés en PERL es la definición y manejo de subrutinas.

El formato de declaración de una subrutina es:

 sub NOMBRE BLOQUE

Ejemplo :

 sub HOLA
 {
   print  "HOLA\n";
 }

La llamada a la subrutina la haríamos usando:

• do nombre_de_la_subrutina();
  
• &nombre_de_la_subrutina;

Las dos formas producen el mismo resultado con la excepción de que en el caso de do hay siempre que poner los paréntesis, si queremos pasar argumentos debemos pasar los argumentos entre estos paréntesis, y estos serán almacenados en el array de escalares @_, es decir para saber el número y el valor de los argumentos pasados a una subrutina hay que leer de este array predefinido.
Un ejemplo podría ser el siguiente:
  sub imprime
  {
    local ($cadena)=@_;
    print $cadena;
  }

  &imprime ("HOLA\n");En el ejemplo anterior se usa la función local(), que sirve para declarar variables locales a la subrutina, por supuesto podríamos haber referenciado directamente el array @_.
El valor retornado por la subrutina es el de la última expresión evaluada, y puede ser tanto un array como un escalar. También podemos devolver explicitamente un valor usando return, como en C.
También resulta interesante la declaración y uso de formatos o reports. Con la definición de un report, estamos alterando el formato de salida de los registros cuando utilizamos la función write.∞
La sintaxis para la definición de un formato es:
       format NOMBRE =
       FORMLIST
       .Si NOMBRE se omite, entonces STDOUT es tomado como el dispositivo de salida. FORMLIST contiene el formato de la salida de la forma:
SANGRADO_CAMPO1,SANGRADO_CAMPO2,...,SANGRADO_CAMPON variable1, variable2,.........,variablen
El tipo de sangrado se consigue usando los símbolos:

• • < : sangrado a la izquierda.
  • > : sangrado a la derecha.
  • | : texto centrado. Pondremos tantos símbolos como la longitud máxima requerida para representar el valor de la variable asignada a ese campo, además al principio de la definición de los campos de sangrado debe estar el símbolo @.

Un ejemplo de salida formateada podría ser:

format STDOUT_TOP = 
                        SALIDA FORMATEADA DE WHO
.
format STDOUT =
Usuario                      Conectado en               Momento de la conexion

@<<<<<<<<<<<<<<<<<<<<<<<<<@|||||||||||||||||||||||@>>>>>>>>>>>>>>>>>>>>>>>>>
$usuario                  ,$tty                    ,$conectado

.
open(WHO,"who|");  
while ($who = <WHO>)
{
    chop $who;
    ($usuario,$tty,$conectado) = split(/\s+/,$who,3);
    write;
}
close(WHO);