Làm cách nào để biết tập lệnh Perl của tôi có đang chạy trong Windows không?

Question

Cách tốt nhất để lập trình xác định xem tập lệnh Perl có thực thi trên hệ thống dựa trên Windows (Win9x, WinXP, Vista, Win7, v.v.) không?

Điền vào chỗ trống ở đây:

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

Answer 1

Từ perldoc perlvar:

• $OSNAME
• $^O

Tên của hệ điều hành dưới whic h bản sao Perl này được xây dựng, như được xác định trong quá trình cấu hình. Giá trị giống hệt với $Config{'osname'}. Xem thêm Config và chuyển đổi dòng lệnh -V được ghi trong perlrun.

Trong nền tảng Windows, $^O không phải là rất hữu ích: vì nó luôn là MSWin32, nó không cho biết sự khác biệt giữa 95/98/ME/NT/2000/XP/CE/.NET. Sử dụng Win32::GetOSName() hoặc Win32::GetOSVersion() (xem Win32 và perlport) để phân biệt giữa các biến thể.

Answer 2

$^O eq 'MSWin32' 

(Nguồn: perlvar manpage)

Answer 3

Sử dụng Devel::CheckOS. Nó xử lý tất cả các trường hợp logic và đặc biệt cho bạn. Tôi thường làm điều gì đó như:

use Devel::CheckOS qw(die_unsupported os_is); 

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

gia đình Các 'Microsoft Windows' biết về những thứ như Cygwin, vì vậy nếu bạn đang trên Windows nhưng không phải tại dấu nhắc cmd, os_is() sẽ vẫn cung cấp cho bạn câu trả lời đúng.

Answer 4

Điều này rất nhanh chóng và dơ bẩn, và sẽ không đặt cược đó là 100% di động, nhưng vẫn hữu ích trong một pinch. Kiểm tra sự hiện diện của dấu gạch chéo ngược trong biến PATH Env, vì PATH là phổ biến cho cả Windows và Unix. Vì vậy - trong Perl:

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