Perl : Faire un package
Fermé
Ptesoleil
Messages postés
27
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
27 août 2008
-
7 août 2008 à 17:16
Ptesoleil Messages postés 27 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 27 août 2008 - 8 août 2008 à 10:15
Ptesoleil Messages postés 27 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 27 août 2008 - 8 août 2008 à 10:15
2 réponses
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 566
7 août 2008 à 20:09
7 août 2008 à 20:09
Salut,
voici un exemple
voici un exemple
lami20j@debian:~/trash$ cat MonPackage.pm
package MonPackage;
use strict;
require Exporter;
our @ISA = qw/Exporter/;
our @EXPORT = qw/min2maj maj2min char2ascii ascii2char/;
sub min2maj{
return uc(shift);
}
sub maj2min{
return lc(shift);
}
sub char2ascii{
return unpack("C*",shift);
}
sub ascii2char{
return pack("C*",@_);
}
1;
lami20j@debian:~/trash$ cat ccm.pl
#!/usr/bin/perl
#
use warnings;use strict;
use lib "/home/lami20j/trash";
use MonPackage;
my $chaine = "comment faire un module en perl?";
print min2maj($chaine),"\n";
print maj2min(min2maj($chaine)),"\n";
print char2ascii($chaine),"\n";
print ascii2char(char2ascii($chaine)),"\n";
__END__
lami20j@debian:~/trash$ perl ccm.pl
COMMENT FAIRE UN MODULE EN PERL?
comment faire un module en perl?
9911110910910111011632102971051141013211711032109111100117108101321011103211210111410863
comment faire un module en perl?
Ptesoleil
Messages postés
27
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
27 août 2008
8 août 2008 à 10:15
8 août 2008 à 10:15
Merci de m'avoir répondue.
Mais j'ai encore des questions : ma fonction doit elle obligatoirement retournée quelquechose ?
Si non, dois je déclarer mes arguments dans le rappel de ma fonctions dans le main?
et à quoi sert :
Mais j'ai encore des questions : ma fonction doit elle obligatoirement retournée quelquechose ?
Si non, dois je déclarer mes arguments dans le rappel de ma fonctions dans le main?
et à quoi sert :
our @ISA = qw/Exporter/;