Discussion :

[djidane39]

Bonsoir,

Bon alors je débute en Perl, je ne connait pas encore trop le vocabulaire Perl, et comme j'ai fait pas mal de Java, je risque de mélangé un peu le vocabulaire des 2, c'est la seul solution que j'ai trouvé pour m'exprimer. -_-' soyez indulgent avec moi si je me trompe
J'ai 2 ptit trucs que j'arrive pas à faire en Perl:
- Question package:
J'ai un projet avec plusieurs packages dont "grammar" et "main"
dans un module de "main" je voudrai utiliser un module de "grammar", j'essai donc de faire un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
use ../grammar::Arglist;

évidement ça ne marche pas, mais malgré mes recherches, je n'arrive pas à trouver comment faire -_-'

- Question fonction:
Je voudrais faire un module ne contenant que des fonctions (fonction static -_-'). J'y arrive quand ce module de fonction est appelée depuis le même package (do "NomModule.pl", mais pas quand celui-ci se trouve ailleurs...
Donc actuelement je fait une classe avec des fonctions, que j'appel comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
use main::Declarations;
$res = Declarations->NomFonction($arg1, ...);

Mais je trouve que c'est de la bidouille, donc j'aimerai faire un vrai module de fonction et surtout pouvoir l'appeler depuis un autre package.

Merci d'avance ^_^

[djidane39]

ya vraiment personne qui sait?

[Arioch]

Heu, je pense effectivement que tu confonds Perl et Java

Je vais juste te donner un exemple simple pour que tu comprennes un peu comment fonctionne un package en Perl.

Voici un bête package Perl que j'appelle test.pm et dont voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
package test;
use vars qw(@ISA @EXPORT);
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(Affiche Fonction2 Fonction3);
 
sub Affiche
{
    my $texte = shift();
    print "$texte\n";
    return;
}
 
sub Fonction2
{
    # une autre fonction du package
}
 
sub Fonction3
{
    # une autre fonction du package
}
 
1;

Pour expliquer le contenu du fichier test.pm :

1) package le_nom_de_ton_package;
C'est obligatoire pour que Perl puisse vraiment comprendre que le fichier .pm est un package, et non un script Perl classique.

2) use vars qw(@ISA @EXPORT); + use Exporter; + @ISA = qw(Exporter);
Ces 3 lignes servent en interne pour la gestion des packages. Là aussi obligatoire.

3) @EXPORT = qw(Affiche Fonction2 Fonction3);
Très important ! @EXPORT est une liste qui, ici, contient le nom des fonctions se trouvant dans le package. Mais précision supplémentaire qui a son importance : @EXPORT contient la liste des fonctions dont la portée est externe. C'est à dire que ces fonctions peuvent être appelées depuis un script perl qui utilise le package. Si une fonction n'est pas présente dans la liste @EXPORT, sa portée reste dans le package uniquement, tu ne peux l'utiliser depuis un script externe.

4) Très important aussi, le 1; que l'on trouve en dernière ligne de tout package qui se respecte. Obligatoire là aussi.

Comment utiliser la fonction Affiche du package test.pm (fonction Affiche qui peut également s'appeler test::Affiche...) ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
use strict;
use warnings;
use test;  # ton package
 
test::Affiche("Coucou, je teste la fonction Affiche du package test.pm !");

Note que tu peux également appeler cette fonction externe Affiche( ) comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Affiche("Coucou, je teste la fonction Affiche du package test.pm !");

Quelle différence y a-t-il entre les deux ? Encore une fois, c'est une histoire de portée !

Imagine que tu aies une fonction Affiche dans ton package et une autre fonction du même nom dans ton script perl. Comment savoir laquelle tu utilises ?

Tu peux être sûr qu'en appelant la fonction test::Affiche, c'est la fonction Affiche du package test.pm qui sera utilisée. Si tu appelles la fonction Affiche uniquement, c'est alors celle dans ton script perl qui sera utilisée.

N'hésite pas à poser d'autres questions.

[djidane39]

Merci bcp, ça marche nickel, tu as parfaitement répondu a ma 2ème question ^_^
Il me reste plus qu'a savoir comment on peu remonter dans l'arboressence avec un "use blabla" -_-'

[Jedai]

Merci bcp, ça marche nickel, tu as parfaitement répondu a ma 2ème question ^_^
Il me reste plus qu'a savoir comment on peu remonter dans l'arboressence avec un "use blabla" -_-'

On ne peut pas, il faut rajouter le répertoire de recherche avec 'use lib' :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
use lib '..';
use MyPackage;

--
Jedaï

[djidane39]

a ok, c'est dommage -_-' mais bon tant pis!

merci!!

--> résolu

[Jedai]

Est-ce que tu as bien compris ma réponse ? Je ne te dis pas que tu ne peux pas utiliser de modules qui se trouvent dans '..', simplement que tu ne peux pas le spécifier directement dans le use, qu'il faut d'abord rajouter '..' à l'ensemble des répertoires recherchés (le classpath si tu veux) avec 'use lib', puis charger le module avec un use normal. Ca ne me semble pas justifier un 'tant pis', c'est plus propre comme ça, non ?

--
Jedaï

[djidane39]

oui oui j'ai bien compris, mon "dommage" n'est pas justifié (c'est pas compliquer de mettre une ligne en plus -_-')