Discussion :

[oursblanc]

Bonsoir,
Dans script.pl je voudrait appeler compute.pm avec un argument en entrée (ce n'est pas dans les FAQ). Voilà comment j'ai fait :
(Dans script.pl )
...
foreach $base (@bases)
{
use compute $base;
...
}

(ce qui ne fonctionne pas et dans compute.pm)
...
my ($base) = @_;
print $base;

Comment faire pour qu'il interprète correctement l'argument ?

[Jedai]

Tu sembles confondre module et fonction, un module n'a pas d'argument. Quand on passe des arguments à la fonction use, le premier argument est le module à importer et le second est transmis à la fonction Export() qui s'occupe de l'importation des symboles du module dans ton script.

Si tu nous dis ce que tu essaye vraiment de faire, nous pourrons sans-doute te proposer une bonne solution.

--
Jedaï

[oursblanc]

Ok, après avoir encore réfléchit, je pense, en effet que je m'y prends mal.
Ce que j'ai à faire est un peu tordu :
Une chaîne de traitement est lancée par un fichier batch.
Cette chaîne est constituée d'executions successives de scripts perl (et un java qui traîne).
Le problème est le suivant : Cette chaîne s'est complexifiée et n'est plus linéaire. Elle doit même être éxécutée plusieurs fois avec des arguments différents en entrée. La plupart des scripts perl ont donc maintenant besoin d'être appelés avec un argument en entrée.
Mon idée est la suivante : remplacer le fichier bacth par un script perl qui permettra de gérer tout ça et faire des scripts de la chaîne des sous-programmes qu'on appelle dans une boucle avec des arguments en entrée.

[Jedai]

Ok, dans ce cas, ce dont tu as besoin est sûrement de la fonction system() ou peut-être de `command`. Va donc voir la FAQ sur ce site, elle explique très bien tout ça. (L'idéal serait bien sûr de transformer tes scripts Perl en modules et d'enchaîner des fonctions dans ton script principal, mais c'est une sérieuse refactorisation, à toi de voir si le jeu en vaut la chandelle).

--
Jedaï

[oursblanc]

Merci.
J'ai déjà essayé ce qu'il y a dans les FAQ avec system du style
system "perl ssprog1.pl $param";
Mais le programme ne reçois rien.

[Hide]

tes parametres sont stockés dans un tableau qui s'appel '@ARVG'

pour récupérer ton argument.

Code :

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

1
2
 
$tmp = $ARVG[0] ;

[oursblanc]

Merci, c'est l'information simple qui me manquait. Je retravaille et je clos le sujet si ça marche.