Using perl Syntax Highlighting
print "Mi sistema operativo es $^O\n";Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
O también:
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.
Using perl Syntax Highlighting
#!usr/bin/env perl
use strict;
my $os = $^O;
if ( $os =~ /MSWin\d+/ ) {
eval qq(
use Win32;
$os = Win32::GetOSName();
);
}
print "Mi sistema operativo es $os\n";
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Si estás en un sistema POSIX:
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