[langage] Comment utilisé la commande "use" conditionellement ?

Version imprimable

27/10/2006, 14h30
Hamdi Hedhili

[langage] Comment utilisé la commande "use" conditionellement ?

Bonjour,

Le fait d'inclure la ligne de code :
"use IO::Socket::SSL;"
dans mon script perl. Me génère une erreur d'interprétation en fait l'interpréteur perl n'a pas trouvé la librairie que j'ai ajouter.
En l'installant sur la même machine je n'ai plus d'erreur.
Ma question est comment faire l'import de la lib conditionellement, de la manière du préprocesseur C "par exemple" ?

Merci pour votre aide :D

en utilisant require, et/ou eval

Code:

1
2
3
4
5
6
 
if (eval "use Module;1") {
    print "ok";
} else {
    print "erreur: $@"
}

j'avais fait ça pour je sais plus qui, mais ça permet d'évaluer si le mod est dispo

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#!/usr/bin/perl
print "Content-Type: text/html\n\n";
print "<HTML><BODY>";
&use_mod("POSIX");
&use_mod("Getopt::Long");
&use_mod("Time::Local");
&use_mod("IO::Socket");
&use_mod("DBI");
&use_mod("Digest::MD5");
print "</BODY></HTML>";
 
sub use_mod {
   local ($mod) = @_;
   print "<br>Evaluation de "."use ".$mod.";\n";
   eval "use $mod ;";
   if ($@) {
      print "<b><font color='#FF0000'>D&eacute;sol&eacute;, <u>$mod</u> n'est pas install&eacute; ce serveur.</font></b>\n";
      return(-1);
   } else {
      print "<b><font color='#00FF00'>Module $mod ok.</font></b>\n";
   }
   return(0);
}
exit;

Edit : arg grillé par pospos:aie:

27/10/2006, 15h39
Hamdi Hedhili

Je vais éssayer ça ...
Est ce que le "use" est utilisable partout dans le script ou seulement à l'entête ?
Merci pour tes reponses pertinentes
:D
27/10/2006, 15h43
rcageot

tu peux utiliser use n'importe ou, même dans les sub !
27/10/2006, 15h47
Hamdi Hedhili

Merci beaucoup pour votre aide, ça ma aidé vraiment :D
27/10/2006, 15h47
pospos

tout "use" en dehors d'un eval (et eval(""), pas eval {} !) sera executé des le debut de ton script, quelque soit l'endroit ou il se trouve.
Un "require" par contre ne sera executé que quand il sera rencontré, et on peut donc le mettre dans un if.
Mais si le module n'existe pas il generera une erreur, d'ou l'interet du eval (avec un "use" ou un "require" du coup, ca ne change rine à par l'import eventuel de fonctions depuis le module)