¿Cómo uso condicionalmente un módulo Perl solo si estoy en Windows?

Question

El siguiente código de Perl ..

if ($^O eq "MSWin32") { 
    use Win32;                                               
    .. do windows specific stuff .. 
} 

.. funciona bajo Windows, pero no sigue funcionando bajo todas las otras plataformas ("No se puede encontrar en Win32.pm @INC"). ¿Cómo le indico a Perl que intente importar Win32 solo cuando se ejecuta bajo Windows e ignora la declaración de importación en todas las demás plataformas?

Answer 1

Este código funcionará en todas las situaciones, y también realiza la carga en tiempo de compilación, como otros módulos que están construyendo podría depender de ello:

BEGIN { 
    if ($^O eq "MSWin32") 
    { 
     require Module; 
     Module->import(); # assuming you would not be passing arguments to "use Module" 
    } 
} 

Esto se debe a use Module (qw(foo bar)) es equivalente a BEGIN { require Module; Module->import(qw(foo bar)); } como se describe en perldoc -f use.

(EDIT, unos años más tarde ...)

Esto es aún mejor, aunque:

use if $^O eq "MSWin32", Module; 

leer más sobre el if pragma here.

Answer 2

En general, use Module o use Module LIST se evalúan en tiempo de compilación, sin importar dónde aparezcan en el código. El tiempo de ejecución es equivalente

require Module; 
Module->import(LIST) 

Answer 3

require Module;

Pero use llama también import, require no. Por lo tanto, si el módulo exporta al espacio de nombre predeterminado, también debe llamar al

import Module qw(stuff_to_import);

También puede eval "use Module" - que funciona muy bien IF perl puede encontrar la ruta adecuada en tiempo de ejecución.

Answer 4

Como atajo para la secuencia:

BEGIN { 
    if ($^O eq "MSWin32") 
    { 
     require Win32; 
     Win32::->import(); # or ...->import(your-args); if you passed import arguments to use Win32 
    } 
} 

puede utilizar el caso de Pragma:

use if $^O eq "MSWin32", "Win32"; # or ..."Win32", your-args;