¿Cómo verificar la disponibilidad de Perl, su versión y la presencia de un módulo requerido?

Question

He escrito un script Perl, solo quiero dárselo a todos, para eso planeé escribir un script bash que se usa para probar el entorno de un usuario y determinar si ese entorno es capaz de ejecutar el Perl guión.

Quiero probar las cosas como:

1. Si Perl ha instalado en ese sistema
2. Perl debe tener la versión 5 o más
3. Si el módulo de JSON :: Cualquier está disponible

Cualquier sugerencia sería muy apreciada :-)

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 

menudo uso '${PERL:-perl}' y construcciones similares para identificar el comando (por awk vs nawk o gawk; troff vs groff; etc.)

Si desea probar la versión de JSON :: Any, capture la salida del comando en su lugar. Si desea probar la versión de Perl, agregue 'use 5.008009;' o el número que considere oportuno. (No hace mucho tiempo que finalmente eliminaron Perl 4 de uno de los sistemas de archivos montados en NFS en el trabajo, pero ese no era el único Perl en la máquina, al menos, ¡no en la última década o más!)

Answer 2

En cuanto a la comprobación availab Perl La forma más fácil de hacerlo es verificar el código de retorno (código de salida) del comando perl -v, si no es 0, no tiene Perl.

Ahora respecto a los requisitos de Perl, que debe trato con ellos desde el interior de su script Perl:

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

Lo anterior Perl código se ejecutará sólo con el Perl 5.6.1 o posterior y con modele "ModuleName" versión 2.0 o más nuevo. No es necesario comprobar manualmente la versión de Perl desde bash, es mejor y más fácil hacerlo directamente desde el script de Perl.

Referencias:

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

Answer 3

No, no escriba un script de shell. Perl ya tiene una forma perfectamente buena de hacer esto. La forma correcta de hacerlo es crear una distribución preparada para CPAN utilizando la cadena de herramientas normal. Algo de esto se explica en perlnewmod, perlmodstyle y perlmodinstall.

Para un ejemplo de trabajo mínima, crear una estructura de directorios así:

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

En el archivo Build.PL, poner:

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; 

cambiar los detalles de la habitación sus propósitos.

En el archivo README, poner algunas instrucciones de instalación, por ejemplo:

To install this module, run the following commands: 

perl Build.PL 
./Build install 

Una vez que haya terminado con todo eso, se ejecuta:

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

Esto resultará en un archivo .tar.gz que distribuirá Dígales a sus usuarios que lo instalen como cualquier otro módulo de CPAN, o si no saben lo que eso significa, deben leer el archivo README.

Si tiene tiempo, le recomiendo que convierta su secuencia de comandos a un módulo. El programa pl2pm (viene con Perl) y el módulo CPAN Module-Starter-PBP le ayudan.

Si la licencia lo permite, es posible cargar su código en CPAN para hacerlo aún más conveniente para sus usuarios. Pida ayuda en cualquiera de los siguientes lugares primero: lista de correo module-authors@perl.org, foro web PerlMonks, canal IRC#toolchain en MagNET (irc: //irc.perl.org/toolchain)