Perl betiğimin Windows altında çalışıp çalışmadığını nasıl anlarım?

Question

Perl betiğinin Windows tabanlı bir sistemde (Win9x, WinXP, Vista, Win7, vb.) Çalışıp çalışmadığını programlamanın en iyi yolu nedir? Burada boşlukları

Dolgu: perldoc perlvar itibaren

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

Answer 1

:

• $OSNAME
• $^O

işletim sisteminin adı yüklenebileceğini altında h Perl'in bu kopyası, yapılandırma işlemi sırasında belirlendiği şekilde oluşturuldu. Değer $Config{'osname'} ile aynıdır. Ayrıca bkz. Yapılandırma ve perlrun içinde belgelenen -V komut satırı anahtarı.

Windows platformlarında $^O çok yararlı değildir: her zaman MSWin32 olduğundan, bu, 95/98/ME/NT/2000/XP/CE/.NET arasındaki farkı anlatmaz. Varyantları birbirinden ayırmak için Win32::GetOSName() veya Win32::GetOSVersion()'u (bkz. Win32 ve perlport) kullanın.

Answer 2

$^O eq 'MSWin32' 

(Kaynak: perlvar manpage)

Answer 3

kullanın Devel::CheckOS. Sizin için tüm mantık ve özel durumları ele alır. Windows üzerinde ancak cmd istemi iseler, os_is() hala doğru cevabı verecektir böylece

use Devel::CheckOS qw(die_unsupported os_is); 

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

'MicrosoftWindows aileleri, örneğin Cygwin olarak şeyleri bilir: Ben genellikle bir şey gibi yapın.

Answer 4

Bu çok hızlı ve kirli ve% 100 portatif, ancak bir tutamda hala yararlı olduğu bahis yapamaz. PATH, hem Windows hem de Unix'te yaygın olduğu için PATH Env değişkeninde ters eğik çizgi olup olmadığını kontrol edin. So - in Perl:

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