• Publicidad

Dectectar el sistema operativo

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Dectectar el sistema operativo

Notapor erv-Z » 2009-10-28 17:04 @753

Hola, quiero saber cómo detectar el sistema operativo o un módulo que lo haga.

Saludos.
erv-Z
Perlero nuevo
Perlero nuevo
 
Mensajes: 158
Registrado: 2009-07-25 13:00 @583

Publicidad

Re: Dectectar el sistema operativo

Notapor creating021 » 2009-10-28 18:45 @823

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
print "Mi sistema operativo es $^O\n";
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4

O también:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
use Config;
print "Mi sistema operativo es $Config{osname}\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


En Windows $^O (que es lo mismo que $OSNAME y $Config{osname}) siempre imprime MSWin32 (creo que MSWin64 si estás en 64 bits) así que perlvar recomienda usar Win32::GetOSName() o Win32::GetOSVersion() para tener un dato más acertado.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!usr/bin/env perl
  2. use strict;
  3.  
  4. my $os = $^O;
  5.  
  6. if ( $os =~ /MSWin\d+/ ) {
  7.     eval qq(
  8.         use Win32;
  9.         $os = Win32::GetOSName();
  10.     );
  11. }
  12.  
  13. print "Mi sistema operativo es $os\n";
  14.  
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Si estás en un sistema POSIX:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
use POSIX;
my @info = POSIX::uname();
print "Mi S.O. es $info[0]\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Expect the worst, is it the least you can do?
Avatar de Usuario
creating021
Perlero frecuente
Perlero frecuente
 
Mensajes: 595
Registrado: 2006-02-23 16:17 @720
Ubicación: Frente al monitor

Re: Dectectar el sistema operativo

Notapor explorer » 2009-10-28 19:20 @847

El módulo Devel::CheckOS da una información más precisa que $^O.

Y si necesitas solo enterarte de la familia de sistemas operativos al que pertenece el que ejecutas, usa OSType.

Mientras, Sys::Info da más información sobre el sistema en donde estás.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Dectectar el sistema operativo

Notapor erv-Z » 2009-10-29 13:55 @621

Gracias
erv-Z
Perlero nuevo
Perlero nuevo
 
Mensajes: 158
Registrado: 2009-07-25 13:00 @583


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 7 invitados

cron