Voici comment implémenter une librairie en perl par un exemple explicit.Par convention, les librairie sous Perl ont pour extension le ‘.pm’.

Exemple avec le fichier music.pm (la lib) :
—————

package music;

use strict;

sub play_music () {
// mon code….
return 0;
}

// TRES IMPORTANT
1;

——————

Pour le fichier contenant le programme principal :

——————

#!/usr/bin/perl

// s’agit de pas dévellopé comme un porc !
use strict;

// Ca mange pas de pain et ca simplifit la vie !
BEGIN {
my $path = $0;
$path =~ m,^(.*)/[^/]+$,;
unshift(@INC, « . », « lib », « $1 », « $1/lib », « $1/../lib »);
}

// On fait connaitre la librairie
use music;

// On appel la fonction présente dans la librairie
&music::play();

exit 0;

Et voila… tout simple

---

Article lu 1007 fois