Bonjour,

Je reprends actuellement un script perl dans lequel je trouve dans les premières lignes :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
use strict;
use DBI;
use CGI;
use SWF qw(:ALL);
use connect ('connect');
 
my $db = connect("database1");
my $db2 = connect("database2");
Je m'y connais pas sur l'emploi des modules, mais ce qui me pose problème c'est le use connect, qui je pense est un module crée par le programmateur.

Du coup en regardant la doc, j'ai commencé à créer un fichier .pm :

package connect;
use strict;
use DBI;
use vars qw(@ISA @EXPORT);
use Exporter;
@ISA = qw (Exporter);
@EXPORT = qw (connect );

sub connect { ?? }
1;

Est ce que ça vous paraît correct?
Dans la fonction , je n'ai rien écris mais si vous avez des idées, je suis preneur. Et dernière question je dois placer ce fichier dans le même répertoire que le script qui appel ce module ou plutot dans le dossier /usr/lib/perl5/ ou autre...

Merci