Hello !

voilà, j'ai le module suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
#!/usr/bin/perl -w
use strict;
use Carp;
package module_test; 
sub Test{
my $param = $ARGV[0];
print "\nDirectory : $param\n";
}
1;
Et je l'appelle de la facon suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
#!/usr/bin/perl -w
use strict;
use Carp;
use module_test;
&module_test::Test("/home/Krispy/Jeux");
print "OK";

Le probleme, c'est qu'apparement, on ne peut passer des variables aussi facilement :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Use of uninitialized value in concatenation (.) or string at module_test.pm line 20.
Une solution à ce pb ?

Merci bien