Comment vérifier la disponibilité de Perl, sa version et la présence d'un module requis?

Question

J'ai écrit un script Perl, je veux juste le donner à tout le monde, pour ce que j'ai prévu d'écrire un script bash qui est utilisé pour tester l'environnement d'un utilisateur et trouver si cet environnement est capable d'exécuter le Perl scénario.

Je veux tester les choses comme:

1. Que Perl a installé dans ce système
2. Perl doit avoir la version 5 ou plus
3. Que le module JSON :: Tout est disponible

Toute suggestion serait grandement appréciée :-)

Answer 1

if perl -MJSON::Any -e 'print "$JSON::Any::VERSION\n"' >/dev/null 2>&1 
then : OK 
else echo "Cannot find a perl with JSON::Any installed" 1>&2 
    exit 1 
fi 

J'utilise souvent '${PERL:-perl}' et constructions similaires pour identifier la commande (par awk vs nawk ou gawk; troff vs groff; etc).

Si vous voulez tester la version de JSON :: Any, capturez plutôt la sortie de la commande. Si vous voulez tester la version de Perl, ajoutez 'use 5.008009;' ou n'importe quel nombre que vous pensez raisonnable. (Il n'y a pas si longtemps, ils ont finalement retiré Perl 4 de l'un des systèmes de fichiers montés sur NFS au travail - mais ce n'était pas le seul Perl sur la machine - au moins pas dans la dernière décennie!)

Answer 2

En ce qui concerne la vérification Perl availab La manière la plus simple de le faire est de vérifier le code retour (code de sortie) de la commande perl -v, si ce n'est pas 0, vous n'avez pas Perl.

Maintenant en ce qui concerne les exigences Perl, vous devriez traiter avec eux à l'intérieur de votre script Perl:

#!/usr/bin/env perl 
use 5.006_001; 
use ModuleName 2.0; 

Le code ci-dessus Perl fonctionnera uniquement avec Perl 5.6.1 ou plus récent et modèle "ModuleName version" 2.0 ou plus récent. Il n'est pas nécessaire de vérifier manuellement la version de Perl à partir de bash, il est préférable et plus facile de le faire directement à partir du script Perl.

Références:

• Requiring a minimal Perl version
• Checking if a Perl module is installed

Answer 3

Non, n'écrivez pas un script shell. Perl a déjà une façon parfaite de le faire. La méthode correcte consiste à créer une distribution prête pour CPAN en utilisant la chaîne d'outils normale. Une partie de ceci est expliquée dans perlnewmod, perlmodstyle et perlmodinstall.

Pour un exemple de travail minimum, créer une mise en page de répertoire ainsi:

. 
├── Build.PL 
├── README 
└── script 
    └── abuscript.pl 

Dans le fichier Build.PL, mis:

use 5.000; 
use Module::Build qw(); 
Module::Build->new(
    module_name  => 'abuscript', 
    dist_version  => '1.000', 
    dist_author  => 'abubacker <abubacker@example.com>', 
    dist_abstract  => 'describe what the script does in one sentence', 
    configure_requires => { 
     'perl' => '5.000', 
    }, 
    requires   => { 
     'JSON::Any' => 0, 
    }, 
)->create_build_script; 

Modifier les détails à la suite vos besoins.

Dans le fichier README, mettre des instructions d'installation, par exemple:

To install this module, run the following commands: 

perl Build.PL 
./Build install 

Une fois que vous avez terminé avec tout cela, vous exécutez:

perl Build.PL 
./Build manifest 
./Build dist 

Cela se traduira par une .tar.gz archives que vous allez distribuer. Dites à vos utilisateurs de l'installer comme n'importe quel autre module CPAN, ou s'ils ne savent pas ce que cela signifie, ils devraient lire le fichier README.

Si vous avez le temps, je vous recommande de convertir votre script en module. Le programme pl2pm (livré avec Perl) et le module CPAN Module-Starter-PBP vous aident.

Si la licence le permet, il est possible de télécharger votre code sur CPAN pour le rendre encore plus pratique pour vos utilisateurs. Demander de l'aide dans l'un des endroits suivants d'abord: liste de diffusion module-authors@perl.org, forum web PerlMonks, canal IRC#toolchain sur MagNET (irc: //irc.perl.org/toolchain)