Les sub

L'une des possibilités du Perl est de permettre de gérer l'écriture d'un programme par l'écriture de petits programmes, voir de modules simples à gérer.

La fonction sub permet de fabriquer véritablement une fonction que nous pourrons par la suite ré-utiliser autant de fois que voulu. L'objectif est double :

• simplifier la programmation en créant les fonctions adaptées au programme une fois pour toutes ;
• simplifier la maintenance du code en n'ayant qu'à un seul et unique endroit une fonctionnalité utilisée pourtant en plusieurs endroits ;

Étudions un cas simple d'utilisation de sub :

#!/usr/bin/perl

use strict;
my $value = "Hello World";
sub sous_prog # imprime $_[0] a l'ecran 
                a raison de 1 caractere pas ligne
{
    my $tmpValue = $_[0];
    my @tabular = split(//,$tmpValue);
    my $it;
    foreach $it(@tabular)
    {
        print $it."\n";
    }
}

&sous_prog($value);

Qui une fois lancé donnera le résultat suivant :

~/perl $ ./sub.pl 
H
e
l
l
o
 
W
o
r
l
d
~/perl $