Làm thế nào tôi có thể phát hiện hệ điều hành trong Perl?

Question

Tôi có Perl trên Mac, Windows và Ubuntu. Làm thế nào tôi có thể nói từ bên trong kịch bản đó là cái nào? Cảm ơn trước.

Chỉnh sửa: Tôi được hỏi tôi đang làm gì. Nó là một kịch bản, một phần của hệ thống xây dựng đa nền tảng của chúng tôi. Kịch bản lệnh đệ quy các thư mục và tìm ra các tệp cần xây dựng. Một số tập tin là nền tảng cụ thể, và do đó, trên Linux Tôi không muốn xây dựng các tập tin kết thúc với _win.cpp vv

Answer 1

Kiểm tra $^O biến mà sẽ chứa tên của hệ điều hành:

print "$^O\n"; 

Bản in nào linux trên Linux và MSWin32 trên Windows.

Bạn cũng có thể tham khảo để biến này bằng tên $OSNAME nếu bạn sử dụng các mô-đun English:

use English qw' -no_match_vars '; 
print "$OSNAME\n"; 

Theo perlport, $^O sẽ darwin trên Mac OS X.

---

Bạn cũng có thể sử dụng mô-đun lõi Config, có thể cung cấp cùng một thông tin (và nhiều hơn nữa):

use Config; 

print "$Config{osname}\n"; 
print "$Config{archname}\n"; 

nào trên máy tính Ubuntu in của tôi:

linux 
i486-linux-gnu-thread-multi 

Lưu ý rằng thông tin này được dựa trên hệ thống mà Perl là xây dựng, mà không nhất thiết phải là hệ thống Perl hiện đang chạy trên (cùng là đúng cho $^O và $OSNAME); hệ điều hành sẽ không có khả năng khác nhau nhưng một số thông tin, như tên kiến ​​trúc, có thể rất tốt.

Answer 2

Here's tham khảo nhanh về cách tìm hệ điều hành mà máy cục bộ đang chạy từ Perl.

Biến $^O ($ OSTYPE nếu bạn sử dụng tiếng Anh) chứa hệ điều hành mà nhị phân perl của bạn được tạo.

Answer 3

Biến $^O (đó là số vốn 'O', không phải số không) giữ tên của hệ điều hành.

Tùy thuộc vào những gì bạn muốn, nó có thể hoặc có thể không đưa ra câu trả lời bạn muốn - trên hệ thống của tôi, nó cung cấp 'linux' mà không nói phân phối. Tôi không chắc chắn về những gì nó nói trên Windows hoặc MacOS.

Answer 4

Sys::Info::OS trông giống như một giải pháp tiềm năng tương đối sạch, nhưng hiện tại dường như không hỗ trợ Mac. Nó không phải là quá nhiều công việc để thêm rằng mặc dù.

Answer 5

Nhìn bên trong nguồn cho File::Spec để xem cách tải đại biểu phù hợp dựa trên hệ điều hành. :)

File::Spec có tệp mô-đun Perl riêng cho từng hệ điều hành. File::Spec::Win32, File::Spec::OS2, v.v ...

Nó sẽ kiểm tra hệ điều hành và sẽ tải tệp .pm thích hợp vào thời gian chạy dựa trên hệ điều hành.

# From the source code of File::Spec 
my %module = (
     MSWin32 => 'Win32', 
     os2  => 'OS2', 
     VMS  => 'VMS', 
     NetWare => 'Win32', # Yes, File::Spec::Win32 works on NetWare. 
     symbian => 'Win32', # Yes, File::Spec::Win32 works on symbian. 
     dos  => 'OS2', # Yes, File::Spec::OS2 works on DJGPP. 
     cygwin => 'Cygwin', 
     amigaos => 'AmigaOS'); 


my $module = $module{$^O} || 'Unix'; 

require "File/Spec/$module.pm"; 
our @ISA = ("File::Spec::$module"); 

Answer 6

Nếu bạn cần thêm thông tin cụ thể về Windows, điều này có thể hữu ích.

my $osname = $^O; 


if($osname eq 'MSWin32'){{ 
    eval { require Win32; } or last; 
    $osname = Win32::GetOSName(); 

    # work around for historical reasons 
    $osname = 'WinXP' if $osname =~ /^WinXP/; 
}} 

Xuất phát từ sysinfo.t, mà tôi đã viết phiên bản gốc.

Nếu bạn cần thông tin chi tiết hơn:

my ($osvername, $major, $minor, $id) = Win32::GetOSVersion(); 

Answer 7

Một cổ điển một liner:

my $windows=($^O=~/Win/)?1:0;# Are we running on windows? 

Answer 8

#Assign the $home_directory variable the path of the user's home directory 
my $home_directory = ($^O eq /Win/) ? $ENV{HOMEPATH} : $ENV{HOME}; 
#Then you can read/write to files in the home directory 
open(FILE, ">$home_directory/my_tmp_file"); 
print FILE "This is a test\n"; 
close FILE; 
#And/or read the contents of the file 
open(FILE, "<$home_directory/my_tmp_file"); 
while (<FILE>){ 
    print $_; 
} 
close FILE; 

Answer 9

có sử dụng mô-đun cấu hình có thể là một điều tốt. Một khả năng nữa là nhận được thông tin từ/etc/* phiên bản tập tin

cho ví dụ ..

cat/etc/os-phát hành

NAME="UBUNTU" 
VERSION="12.0.2 LTS, Precise Pangolin" 
ID="UBUNTU" 
ID_LIKE=debian 
PRETTY_NAME="Ubuntu precise (12.0.2 LTS)" 
VERSION_ID="12.04"