perl | Subrutinas o Funciones – Part 1

Una función o subrutina de Perl es un grupo de sentencias que juntas realizan una tarea específica. En cada lenguaje de programación, el usuario quiere reutilizar el código. Entonces, el usuario pone la sección de código en función o subrutina para que no haya necesidad de escribir código una y otra vez. En Perl, los términos función, subrutina y método son los mismos , pero en algunos lenguajes de programación se consideran diferentes. La palabra subrutinas se usa más en la programación de Perl porque se crea usando la palabra clave sub . Cada vez que hay una llamada a la función, Perl deja de ejecutar todo su programa y salta a la función para ejecutarla y luego regresa a la sección de código que estaba ejecutando anteriormente. Uno puede evitar el uso de la declaración de devolución.

Definición de subrutinas: la forma general de definir la subrutina en Perl es la siguiente:

sub subroutine_name
{
    # body of method or subroutine
}

Llamar a subrutinas: en Perl, las subrutinas se pueden llamar pasándoles la lista de argumentos de la siguiente manera:

subroutine_name(aruguments_list);

La forma anterior de llamar a la subrutina solo funcionará con Perl versión 5.0 y posteriores. Antes de Perl 5.0, había otra forma de llamar a la subrutina, pero no se recomienda su uso porque omite los prototipos de subrutina.

&subroutine_name(aruguments_list);

Ejemplo:

# Perl Program to demonstrate the 
# subroutine declaration and calling
  
#!/usr/bin/perl
  
# defining subroutine
sub ask_user {
   print "Hello Geeks!\n";
}
  
# calling subroutine
# you can also use
# &ask_user();
ask_user();

Producción:

Hello Geeks!

Pasar parámetros a subrutinas: Esto se usa para pasar los valores como argumentos. Esto se hace usando variables de array de lista especiales ‘$_’ . Esto se asignará a las funciones como $_[0], $_[1] y así sucesivamente.

Ejemplo:

# Perl Program to demonstrate the 
# Passing parameters to subroutines
  
#!/usr/bin/perl
  
# defining subroutine
sub area 
{
    # passing argument    
    $side = $_[0];
      
    return ($side * $side);
}
  
# calling function
$totalArea = area(4);
  
# displaying result
printf $totalArea;

Producción:

16

Ventaja de usar subrutinas:

• Nos ayuda a reutilizar el código y facilita el proceso de búsqueda de errores y depuración.
• Ayuda a organizar el código en formato estructural. Los fragmentos de código se organizan en formato seccional.
• Aumenta la legibilidad del código.