Discussion :

[alexis.melot]

Re bonjour,
je n'arrive pas à trouver ça, mais j'aimerais utiliser une variable qui est disponible dans un autre fichier :
algo.pl utilise une variable (en fait un array/tableau) disponible dans configuration.pl.

pouvez-vous m'aider?

[6ril23]

quelle est le lien entre les 2 scripts?

si depuis configuration.pl tu appelles algo.pl => passe la réference en paramètre
si depuis algo.pl tu appelles configuration.pl => renvoie la variable en sortie du script

si tu veux une réponse plus précise, soit le dans la question

[alexis.melot]

bon, mon configuration.pl contient un tableau

Code :

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

1
2
3
my @clients = ( ['site', 'site1', 'site2'],
                ['evol', 'evol1', 'evol2', 'evol3']
);

et j'aimerais utiliser $clients dans mon algo.pl, par exemple :

Code :

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

print "@$_\n" for @clients;

lorsque j'execute algo.pl, le résultat serait

Code :

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

1
2
site site1 site2
evol evol1 evol2 evol3

[alexis.melot]

est-ce plus précis?

[ggnore]

Salut,

Dans ton fichier principal :

Code :

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

1
2
3
4
5
#!/usr/bin/perl
 
use script_conf;
 
printf $variable

Dans ton fichier de configuration, nommé script_conf.pm

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
 
package script_conf;
 
use Exporter;
 
our @ISA = 'Exporter';
our @EXPORT = qw($variable);
 
our $variable        = "toto";
1;

[6ril23]

pour pour voir t'aider:

- quelle est le lien entre les 2 scripts? l'un appelle l'autre, 2 scripts indépendants...
- ton @clients est écrit en dur dans "configuration.pl"? ou est rempli par le script?

[alexis.melot]

algo.pl restera le script, dont l'utilisateur n'aura pas besoin de toucher.
configuration.pl sera un fichier en dur, l'utilisateur pourra effecter des modifs.

algo.pl se sert de ce qui est dans configuration.pl pour effectué ce qu'il dooit faire

[alexis.melot]

Salut,

Dans ton fichier principal :

Code :

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

1
2
3
4
5
#!/usr/bin/perl
 
use script_conf;
 
printf $variable

Dans ton fichier de configuration, nommé script_conf.pm

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
 
package script_conf;
 
use Exporter;
 
our @ISA = 'Exporter';
our @EXPORT = qw($variable);
 
our $variable        = "toto";
1;

je n'y arrive pas.
configuration.pl :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
 
package script_conf;
 
use Exporter;
 
our @ISA = 'Exporter';
our @EXPORT = qw(@clients);
 
our @clients = ( ['site', 'site1', 'site2'],
                ['evol', 'evol1', 'evol2', 'evol3']
);

algo.pl :

Code :

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

1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
use File::Copy;
use strict;
use warnings;
use script_conf;
 
print "@$_\n" for @clients;

perl algo.pl

Code :

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

1
2
3
perl algo.pl
Can't locate script_conf.pm in @INC (@INC contains: /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 .) at algo.pl line 6.
BEGIN failed--compilation aborted at algo.pl line 6.

[6ril23]

Dans ton fichier de configuration, nommé script_conf.pm

il faut parfois faire un peu plus que juste copier/coller les propositions proposées sur le forum

[alexis.melot]

et quels sont les differences entre .pm et .pl ?

[alexis.melot]

merci ggnore! ça marche nikel!