Jak mogę sprawdzić, czy mój skrypt Perla działa pod Windows?

Question

Jaki jest najlepszy sposób, aby programowo ustalić, czy skrypt Perl jest wykonywany w systemie opartym na systemie Windows (Win9x, WinXP, Vista, Win7 itd.)?

Fill tu półfabrykatów:

my $running_under_windows = ... ? 1 : 0; 

Answer 1

Od perldoc perlvar:

• $OSNAME
• $^O

Nazwa systemu operacyjnego pod whic h ta kopia Perla została zbudowana, jak ustalono podczas procesu konfiguracji. Wartość jest identyczna z $Config{'osname'}. Zobacz także Config i przełącznik linii poleceń -V udokumentowany w perlrun.

Na platformach Windows $^O nie jest bardzo pomocny: ponieważ zawsze jest to MSWin32, nie odróżnia go od 95/98/ME/NT/2000/XP/CE/.NET. Użyj Win32::GetOSName() lub Win32::GetOSVersion() (patrz Win32 i perlport), aby odróżnić warianty.

Answer 2

$^O eq 'MSWin32' 

(Źródło: perlvar podręcznika)

Answer 3

Zastosowanie Devel::CheckOS. Obsługuje wszystkie logiczne i specjalne przypadki dla ciebie. Zwykle zrobić coś takiego:

use Devel::CheckOS qw(die_unsupported os_is); 

die "You need Windows to run this program!" unless os_is('MicrosoftWindows'); 

rodzin „Microsoft Windows” wie o rzeczach takich jak Cygwin, więc jeśli jesteś na Windows, ale nie w CMD szybka, os_is() będzie nadal daje właściwą odpowiedź.

Answer 4

Jest to bardzo szybkie i brudne, i nie można się założyć, że jest w 100% przenośne, ale nadal przydatne w szczypie. Sprawdź, czy nie występują ukośniki odwrotne w zmiennej PATH Env, ponieważ PATH jest wspólna dla systemów Windows i Unix. Tak - w Perlu:

if ($ENV{PATH}=~m{\\}) { 
    #Quick and dirty: It's windows! 
    print "It's Windows!"; 
} else { 
    print "It's Unix!"; 
}