Bonjour,
Je voudrais faire un package Perl mais je sais pas comment le faire . J'ai cherché de la documentation mais je n'ai trouvé de réponses claires à mes questions.
Voilà je voudrais mettre plusieurs fonctions "sub" dans ce package et les appeler dans mon main par la suite.
Mais voilà je sais pas si je dois déclarer les variables de mes fonctions par "our" et comment je rapelle ces variables de fonctions dans le main.

Voilà ce que j'ai fait pour le moment :

#!/usr/bin/perl
package Condition;
use strict;
use warnings;
sub condition_2specie
{
my ($line,$spec,$cond) = @_;
if ($line =~ /^\s\#\d+\,\d+\#\s\d.*\s\{\w.*\}\s\s\(\#(\d+)\#\s(\w.+)\<\d.+\>\;\s\#(\d+)\#\s(\w.+\<\d.+\>\;\s\#(\d+)\#\s(\w.+)\<\d.+\>\)/)
{
if ($1 eq $spec)
{
$cond=$2;
print FIL " - $cond";
}
if ($3 eq $spec)
{
$cond=$4;
print FIL " - $cond";
}
if ($5 eq $spec)
{
$cond=$6;
print FIL " - $cond";
}
}
else
{
$cond="No condition";
print FIL " - $cond";
}
}
1;
et dans le main :
use Condition;
..
Condition::condition_2specie ($linekmtn,$specie1,$condition); #Rappel de la fonction du package
Quelqu'un pourrait-il m'aider à éclaircir le sujet?Configuration: Windows XP
Internet Explorer 6.0