¿Cómo puedo detectar el sistema operativo en Perl?

Question

Tengo Perl en Mac, Windows y Ubuntu. ¿Cómo puedo decir desde dentro del script cuál es cuál? Gracias por adelantado.

Editar: Me preguntaron qué estoy haciendo. Es un script, parte de nuestro sistema de compilación multiplataforma. El script recursifica directorios y descubre qué archivos crear. Algunos archivos son específicos de la plataforma, y ​​por lo tanto, en Linux que no quieren construir los archivos terminando con _win.cpp, etc.

Answer 1

Examinar la variable $^O que contendrá el nombre del sistema operativo:

print "$^O\n"; 

Que imprime linux en Linux y MSWin32 en Windows.

También puede hacer referencia a esta variable con el nombre $OSNAME si se utiliza el módulo de English:

use English qw' -no_match_vars '; 
print "$OSNAME\n"; 

Según perlport, $^O habrá darwin en Mac OS X.

---

Usted también puede usar el módulo principal Config, que puede proporcionar la misma información (y mucho más):

use Config; 

print "$Config{osname}\n"; 
print "$Config{archname}\n"; 

Cuál de mis impresiones de la máquina de Ubuntu:

linux 
i486-linux-gnu-thread-multi 

en cuenta que esta información se basa en el sistema que Perl fue construido, que no es necesariamente el sistema de Perl se ejecuta actualmente en (lo mismo es verdadero para $^O y $OSNAME); el sistema operativo no será probablemente diferente, pero cierta información, como el nombre de la arquitectura, muy bien puede ser.

Answer 2

Here's una referencia rápida sobre cómo encontrar el sistema operativo que la máquina local está ejecutando desde Perl.

La variable $^O ($ OSTYPE si usa inglés) contiene el sistema operativo para el que se creó su binario perl.

Answer 3

La variable $^O (que es una 'O' mayúscula, no un cero) contiene el nombre del sistema operativo.

Dependiendo de lo que quiera, puede dar o no la respuesta que desee, en mi sistema da 'linux' sin decir qué distribución. No estoy tan seguro de lo que dice en Windows o MacOS.

Answer 4

Sys::Info::OS parece una solución potencial relativamente limpia, pero actualmente no parece ser compatible con Mac. Sin embargo, no debería ser demasiado trabajo agregar eso.

Answer 5

Busque en el código fuente File::Spec para ver cómo carga el delegado correcto según el sistema operativo. :)

File::Spec tiene un archivo de módulo Perl por separado para cada sistema operativo. File::Spec::Win32, File::Spec::OS2, etc ...

Comprueba el sistema operativo y cargará el archivo .pm apropiado en el tiempo de ejecución basado en el sistema operativo.

# From the source code of File::Spec 
my %module = (
     MSWin32 => 'Win32', 
     os2  => 'OS2', 
     VMS  => 'VMS', 
     NetWare => 'Win32', # Yes, File::Spec::Win32 works on NetWare. 
     symbian => 'Win32', # Yes, File::Spec::Win32 works on symbian. 
     dos  => 'OS2', # Yes, File::Spec::OS2 works on DJGPP. 
     cygwin => 'Cygwin', 
     amigaos => 'AmigaOS'); 


my $module = $module{$^O} || 'Unix'; 

require "File/Spec/$module.pm"; 
our @ISA = ("File::Spec::$module"); 

Answer 6

Si necesita información más específica sobre Windows, esto puede ayudar.

my $osname = $^O; 


if($osname eq 'MSWin32'){{ 
    eval { require Win32; } or last; 
    $osname = Win32::GetOSName(); 

    # work around for historical reasons 
    $osname = 'WinXP' if $osname =~ /^WinXP/; 
}} 

obtenidos por medios sysinfo.t, que escribí la versión original.

Si necesita información más detallada:

my ($osvername, $major, $minor, $id) = Win32::GetOSVersion(); 

Answer 7

Un clásico de una sola línea:

my $windows=($^O=~/Win/)?1:0;# Are we running on windows? 

Answer 8

#Assign the $home_directory variable the path of the user's home directory 
my $home_directory = ($^O eq /Win/) ? $ENV{HOMEPATH} : $ENV{HOME}; 
#Then you can read/write to files in the home directory 
open(FILE, ">$home_directory/my_tmp_file"); 
print FILE "This is a test\n"; 
close FILE; 
#And/or read the contents of the file 
open(FILE, "<$home_directory/my_tmp_file"); 
while (<FILE>){ 
    print $_; 
} 
close FILE; 

Answer 9

sí usando el módulo de configuración puede ser una buena cosa. Una posibilidad es cada vez más la información de/etc/* Los archivos de liberación

por ejemplo ..

cat/etc/os de liberación

NAME="UBUNTU" 
VERSION="12.0.2 LTS, Precise Pangolin" 
ID="UBUNTU" 
ID_LIKE=debian 
PRETTY_NAME="Ubuntu precise (12.0.2 LTS)" 
VERSION_ID="12.04"