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!

[Jedai]

Je voulais simplement dire :

Code :

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

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ï

[djibril]

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

Code :

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

  return $@ ? 1 : 0;

[Jedai]

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 :

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

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 :

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

return ! $@

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

--
Jedaï

[djibril]

ok merci
j'arrivais à utiliser eval car je faisais

Code :

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

eval {use $module};

au lieu de

Code :

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

eval "use $module";

[Jedai]

ok merci
j'arrivais à utiliser eval car je faisais

Code :

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

eval {use $module};

au lieu de

Code :

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

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 :

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

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

--
Jedaï

[djibril]

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

Code :

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

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 :

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

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 :

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

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 :

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

1
2
3
4
5
my $module = "Regexp::Common qw /comment/";
eval {require $module.".pm"};
 
my $module = "Regexp::Common";
eval {require $module.".pm"};

Merci

[Jedai]

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ï

[djibril]

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

[djibril]

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;

[djibril]

pas d'idée jedai?

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

[djibril]

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 :

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

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

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?

[Jedai]

Essaie :

Code :

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

1
2
3
4
5
6
7
BEGIN {
  utilisation_module(
    "Regexp::Common",
    "Perl6::Slurp ",
    "toto",
  );
}

--
Jedaï

[djibril]

Bah écoute, c'est parfait .
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?