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

**Hamdi Hedhili** · 27/10/2006, 14h30

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

**pospos** · 27/10/2006, 15h33

en utilisant require, et/ou eval

Code :

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

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

**rcageot** · 27/10/2006, 15h36

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

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
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

**Hamdi Hedhili** · 27/10/2006, 15h39

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

**rcageot** · 27/10/2006, 15h43

tu peux utiliser use n'importe ou, même dans les sub !

**Hamdi Hedhili** · 27/10/2006, 15h47

Merci beaucoup pour votre aide, ça ma aidé vraiment

**pospos** · 27/10/2006, 15h47

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)

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

Langage Perl

Discussions similaires

Partager

Partager