PerlスクリプトがWindows上で実行されているかどうかを確認するにはどうすればよいですか？

Question

PerlスクリプトがWindowsベースのシステム（Win9x、WinXP、Vista、Win7など）で実行されているかどうかをプログラムで判断する最善の方法は何ですか？

ここで空白を埋める：perldoc perlvarから

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

Answer 1

：

• $OSNAME
• $^O

をwhic下のオペレーティングシステムの名前h設定プロセス中に決定されるように、このPerlのコピーがビルドされました。値は$Config{'osname'}と同じです。 Configとperlrunで説明されている-Vコマンドラインスイッチも参照してください。

$^Oは、常にMSWin32なので、95/98/ME/NT/2000/XP/CE/.NETの違いはわかりません。変形例を区別するためにWin32::GetOSName()またはWin32::GetOSVersion()（Win32およびperlportを参照）を使用してください。

Answer 2

$^O eq 'MSWin32' 

（出典：perlvar manページ）

Answer 3

使用Devel::CheckOS。それはあなたのためのすべてのロジックと特殊なケースを処理します。私は通常のようなものです：

use Devel::CheckOS qw(die_unsupported os_is); 

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

は「MicrosoftWindowsの家族は、Cygwinのようなものを知っているので、あなたは、CMDプロンプトでWindowsの上にあるではない場合、os_is()はまだあなたに正しい答えを与えるだろう。

Answer 4

これは非常に速く汚れていて、100％携帯可能だとは思っていませんが、ピンチでも便利です。 PATHがWindowsとUnixの両方に共通であるため、PATH Env変数にバックスラッシュが存在するかどうかを確認します。 so-in Perl：

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