Discussion :

[djibril]

Problème bête que je n'arrive pas à résoudre
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 :

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

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 :

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
      #!/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

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

sous linux, j'ai ce message :

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 :

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

#use $module;

j'obtiens sous windows

Code :

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

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 :

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

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 , après de multiples testes, je ne sais pas quoi faire et j'ai remarqué que le résultat de la commande

Code :

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

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 :

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

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

[mobscene]

Perso j'utiliserai une autre approche

Code :

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

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

[djibril]

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.

[djibril]

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

Code :

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

use $module;

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

[Jedai]

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ï

[djibril]

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