tester l'existence d'un module via un script

Problème bête que je n'arrive pas à résoudre :aie: :mouarf:
Je souhaite faire une procedure (fonction) qui permet de tester si un module est installé sur la machine et si non, avoir un message propre disant que le module n'est pas installé au lieu d'avoir le message venant de perl, par exemple :

Code:

---

1 2	Can't locate tto.pm in @INC (@INC contains: /usr/local/lib/perl/5.6.1 /usr/local/share/perl/5.6.1 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.6.1 /usr/share/perl/5.6.1 /usr/local/lib/site_perl .) at -e line 1. BEGIN failed--compilation aborted at -e line 1.

---

voici mon script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

#!/usr/bin/perl -w use strict; use Carp; &test_module("toto");   sub test_module { my $module = shift; my $cmd = `perl -e "use $module"`; if ($cmd =~ /^\s*$/i) { use $module; print "$module installe"; } else { print "Vous devez installer ce module \"$module\" pour utiliser ce script"; exit; } }

---

Mais j'ai plusieurs soucis :
sous windows, je n'ai aucun message au lieu d'avoir le message

Citation:

---

Vous devez installer ce module "toto" pour utiliser ce script

---

sous linux, j'ai ce message :

Citation:

---

syntax error at test.pl line 10, near "use $module"
syntax error at test.pl line 11, near "} else"
Execution of test.pl aborted due to compilation errors.

---

===============

si je met use $module en commentaire :

Code:

---

#use $module;

---

j'obtiens sous windows

Code:

---

1 2 3 4 5

C:\Documents and Settings\Propriétaire>perl -e "use toto" Can't locate toto.pm in @INC (@INC contains: C:/Perl/lib C:/Perl/site/lib .) at -e line 1. BEGIN failed--compilation aborted at -e line 1. toto installe

---

et sous linux

Code:

---

1 2	Can't locate toto.pm in @INC (@INC contains: /usr/local/lib/perl/5.6.1 /usr/local/share/perl/5.6.1 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.6.1 /usr/share/perl/5.6.1 /usr/local/lib/site_perl .) at -e line 1. BEGIN failed--compilation aborted at -e line 1.

---

Donc voilà, rien n'est normal :roll: , après de multiples testes, je ne sais pas quoi faire et j'ai remarqué que le résultat de la commande

Code:

---

perl -e "use toto"

---

n'est pas recuperé par la variable $cmd qui reste vide et du coup, le script passe dans le if et non dans le else et en plus le resultat de commande est directement affiché sur la console, puis le use n'est même pas executé correctement.

Or en testant une commande tel

Code:

---

$cmd = `dir`;

---

par ex, pas de soucis, le resultat est bien dans $cmd, une idée?

Sinon avez vous une autre commande ou méthode pour tester si un module est installé sur un serveur car j'aime pas rester sur un echec :mouarf: .
Je tiens à préciser que j'ai testé aussi la commande perldoc MODULE et c'est le même sous, $cmd ne recupere rien.

Merci

Perso j'utiliserai une autre approche

Code:

---

1 2 3 4 5 6 7 8

RECUPERER LES CHEMINS D'INSTALLATION DES MODULES ARRAY :-> DECOUPER NOM MODULE (split /::/) POUR CHAQUE ELEMENT DE ARRAY FAIRE : SI REP/.PM EXISTE PAS AFFICHER -> MESSAGE SI TOUT TESTE PASSE AVEC SUCCES OK sa ROXORRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR FIN

---

Avec une tite interface TK sa pourrais le faire aussi 8-)

C'est dommage que la commande ne soit pas récupérée et j'aimerais bien savoir pourquoi :? :? et ça aurait été beaucoup plus simple!!
Sinon pour l"instant ton idée me parait bien et je vais me baser sur les chemins d'installation.

je pense qu'il y a déjà un souci dans l'ecriture de

Code:

---

use $module;

---

Ce n'est pas compris par perl, comment faire.
car mon sous programme n'a plus d'interet dans ce cas :?

Ton problème vient tout simplement du fait que ton $cmd ne récupère que la sortie standard de ta commande, et pas la sortie d'erreur. Une solution standard pour cela passe par Open2 ou Open3 , ou par une redirection dans la commande même (mais la façon de faire cette redirection varie selon le shell...).

Par ailleurs un simple "eval require" serait plus adapté...

--
Jedaï

je ne sais pas utilisé "eval require" .... alors si tu as 1 exemple, je suis preneur!

Je voulais simplement dire :

Code:

---

1 2 3 4 5 6

sub test_module { my $module = shift; eval "require $module ;"; return ! $@; }

---

Ou un truc comme ça. (NB : Ici le module est chargé, ce que tu veux peut-être éviter, dans ce cas il suffit d'un fork supplémentaire)

[EDIT] Correction d'une petite erreur dans la valeur retournée...

--
Jedaï

peux tu expliquer cette ligne!!!
je sais que $@ doit contenir l'erreur

Code:

---

return $@ ? 1 : 0;

---

Citation:

---

If there is a syntax error or runtime error, or a die statement is executed, an undefined value is returned by eval, and $@ is set to the error message. If there was no error, $@ is guaranteed to be a null string.

---

Autrement dit si le module est bien là, $@ sera une chaîne vide, c'est à dire l'une des valeurs fausses pour Perl, "a ? b : c" retourne b si a est vrai et c sinon, donc avec :

Code:

---

1 2	return $@ ? 0 : 1;

---

test_module renverra vrai si le module est là et faux sinon.
En fait il serait mieux de faire simplement :

Code:

---

return ! $@

---

(d'autant que j'avais inversé le 0 et le 1 dans ma première version :aie: )

--
Jedaï

ok merci
j'arrivais à utiliser eval car je faisais

Code:

---

eval {use $module};

---

au lieu de

Code:

---

eval "use $module";

---

Citation:

---

Envoyé par djibril

ok merci
j'arrivais à utiliser eval car je faisais

Code:

---

eval {use $module};

---

au lieu de

Code:

---

eval "use $module";

---

---

"use" est exécuté à la compilation, c'est pourquoi ta technique ne pouvait pas marcher, avec un "eval string" bien sûr le use est invisible à la compilation, mais pas avec un "eval block". Il aurait fallu utiliser require plutôt que use, mais alors il faut rajouter à la main un ".pm" :

Code:

---

eval {require $module.".pm"};

---

--
Jedaï

au fait j'ai un souci que je ne comprends pas.
si je fais fais :

Code:

---

1 2	eval "use Regexp::Common qw /comment/"; print $RE{comment}{HTML};

---

$RE n'est pas reconnu => donc le module n'a pas été chargée.
en fonction des modules, un coup il charge bien le module, un coup non et dans ce cas ci dessus, c'est pas la cas, que faire?

Code:

---

1 2	eval { use Regexp::Common qw /comment/; }; print $RE{comment}{HTML};

---

=> fonctionne, mais ça ne m'interesse pas car je voudrais faire du style

Code:

---

1 2 3 4

$module = "Regexp::Common qw /comment/"; eval { use $module; }; ou eval "use $module;"; print $RE{comment}{HTML};

---

Ces deux cas non plus ne fonctionnent pas :

Code:

---

1 2 3 4 5

my $module = "Regexp::Common qw /comment/"; eval {require $module.".pm"};   my $module = "Regexp::Common"; eval {require $module.".pm"};

---

Merci

Si si, le module est chargé, mais comme il y a un "strict" dans le tas, il détecte à la compilation que $RE n'est pas déclaré, et donc proteste. Il faut que tu rajoutes un "our $RE;" au début de ton script.

--
Jedaï

même en rajoutant our $RE; j'ai le même souci;

si j'enleve le strict, ça psse pour $RE,
mais c'est maintenant la methode slurp qui n'est pas trouve pour Perl6::Slurp.
sauf si j'ecrit use Perl6::Slurp;

pas d'idée jedai?

Tu mets "sub slurp;" au début du programme. Mais normalement il te suffit d'utiliser des parenthèses après slurp() pour que le compilateur s'aperçoive qu'il s'agit d'une fonction.

--
Jedaï

merci pour ta réponse, mais ta réponse est vraiment au cas par cas et c'est pas ce que je souhaite.
Pour être clair, j'ai un script .pm qui ressemble à ça :

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 26 27 28 29 30 31 32

#!/usr/bin/perl use strict; use Carp; use warnings;   # verifie si un module perl est installé sur une machine sub module_non_installe { my $un_module = shift; eval "use $un_module;"; if ($@ !~ /^\s*$/) { return $@; } return; }   # Averti l'utilisateur des modules utilisés dans le script # non installé sur une machine sub utilisation_module { my @modules = @_; my @modules_non_installes = grep { module_non_installe($_) } @modules; if (@modules_non_installes != 0) { my $message_erreur = "Veuillez installer ces modules ". "pour le bon fonctionnement de votre script :\n"; foreach my $mod (@modules_non_installes){ $message_erreur .= "\t- $mod\n"; } die $message_erreur;   } return; } 1;

---

et dans un autre script je fais ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11

#!/usr/bin/perl use strict; use Carp; use warnings; use module_perso;   utilisation_module( "Regexp::Common", "Perl6::Slurp ", "toto", );

---

C'est une autre façon pour moi d'appeler les modules et en cas de module mal installé, ça génére un message plus propre pour les non informaticiens ou perleens.
Mais le probleme, c'est que pour certains module, je n'ai pas de souci et pour d'autres si.
alors comment puis je bien ecrire tout ça si t'as une idée?

Essaie :

Code:

---

1 2 3 4 5 6 7

BEGIN { utilisation_module( "Regexp::Common", "Perl6::Slurp ", "toto", ); }

---

--
Jedaï

:hola:
Bah écoute, c'est parfait :king: .
Je n'avais pas pensé à ça.
Pourquoi ça marche maintenant avec BEGIN?
Il permet de compiler et donc charger les modules avant toute chose, c'est ça?

Le code dans un bloc BEGIN{} est exécuté à la compilation, dès qu'il est rencontré. A vrai dire use() n'est qu'un BEGIN{} déguisé qui fait un require() et un import(). Pourquoi est-il important que les importations soit effectuées à la compilation ? C'est parce que certaines des ces importations modifient la façon dont la suite du code est compilée, par exemple si une fonction n'est pas déclarée au moment où l'on compile une utilisation de cette fonction, Perl protestera si tu ne mets pas de parenthèses. Avec "strict" c'est encore plus fragrant parce que le problème se pose alors également pour les variables globales, de paquetage comme $RE, qui doivent alors être prédéclarées avant qu'on puisse compiler une utilisation de cette variable.

--
Jedaï

ok, merci