Discussion :

[misterbgs]

Bonjour,

j'ecris un script à déployer sur différentes distributions Linux et il y aura potentiellement les valeurs différentes pour la même constante.
Voici un aperçu du code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
use strict;
use warnings;
 
my $distrib = "debian";
 
if ($distrib == "debian") {
  use constant DIR => "/etc/apache2/";
}
elsif ($distrib == "RedHat") {
  use constant DIR => "/etc/httpd";
}
else {
 use constant DIR => "/etc/tomcat/";
}
 
print "DIR.\n";

(dans les faits, $distrib est affectée via un test).

quand je lance l'exécution du script, j'ai l'erreur suivante : "Constant subroutine main:IR redifined at /usr/lib/perl5/5.14/constant.pm line 136"
et le résultat affiché est "/etc/tomcat/" .

Mes questions :
- où est mon erreur?
- comment puis déclarer une constante en fonction d'un test?

Merci

[6ril23]

essaies déjà de remplacer les "==" par "eq"

[misterbgs]

essaies déjà de remplacer les "==" par "eq"

Merci pour la correction. Mais ça ne change rien au résultat...

[6ril23]

Ce qui pourrait répondre à ta demande est l'utilisation de Readonly

[Lolo78]

Tu ne peux pas faire cela parce que les constantes sont définies à la compilation, avant toute exécution de code et que le code:

Code :

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

if ($distrib eq "debian") {

n'est exécuté que plus tard, à l'exécution.

Tu peux éventuellement utiliser une fonction prototypée:

Code :

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

1
2
3
4
5
sub DIR() {
     return "/etc/apache2/" if $distrib eq "Debian";
     return "/etc/httpd" if $distrib eq "Redhat";
     return "/etc/tomcat/";
}

Ensuite, grâce au prototype (les parenthèses () après DIR), tu peux utiliser DIR tout seul (comme bareword). Mais ce n'est pas forcément très pratique pour le chemin d'un répertoire.

Exemple à la ligne de commande pour une autre utilisation dans laquelle c'est pratique:

Code :

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

1
2
3
4
$  perl -e '
> sub PI() { return 3.1416;}
> print PI * 2, "\n"; '
6.2832

Ou sinon, une fermeture anonyme sera plus pratique.

[misterbgs]

Merci à vous deux.
L'option Readonly aurait corrigé mes problèmes mais le module n'étant pas installé (et ne le sera pas) , je vais passer par la méthode de Lolo78 qui devrait faire l'affaire pour cette fois.