Как я могу обнаружить операционную систему в Perl?

Question

Как я могу обнаружить операционную систему в Perl?

У меня есть Perl на Mac, Windows и Ubuntu. Как я могу сказать из сценария, какой из них какой? Спасибо заранее.

Edit: меня спросили, что я делаю. Это скрипт, часть нашей кроссплатформенной системы сборки. Сценарий повторяется в каталогах и выяснит, какие файлы, чтобы построить. Некоторые файлы зависят от платформы, и поэтому в Linux я не хочу создавать файлы, заканчивающиеся на _win.cpp, etc.

656 9

perl cross-platform

9 ответов:

Comments

Ничего не найдено.

Robert Gamble · Accepted Answer · 2011-12-30 03:22:40

изучить $^O переменная, которая будет содержать имя операционной системы:
print "$^O\n";
, который печатает linux на Linux и MSWin32 на Windows.

вы также можете ссылаться на эту переменную по имени $OSNAME если вы используете английский язык модуль:
use English qw' -no_match_vars ';
print "$OSNAME\n";
по данным perlport,$^O будет darwin на Mac OS Х.

вы также можете использовать Config базовый модуль, который может предоставить ту же информацию (и намного больше):
use Config;

print "$Config{osname}\n";
print "$Config{archname}\n";
который на моей машине Ubuntu печатает:
linux
i486-linux-gnu-thread-multi
обратите внимание, что эта информация основана на системе, в которой Perl был построен, что не обязательно система Perl в настоящее время работает (то же самое верно для $^O и $OSNAME); ОС, скорее всего, не будет быть другим, но некоторая информация, как имя архитектуры, вполне может быть.

Brad Gilbert · Accepted Answer · 2011-12-30 03:13:37

Если вам нужна более конкретная информация о Windows это может помочь.
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/;
}}
полученные от sysinfo.Т, который я написал в оригинальной версии.

Если вам нужна более подробная информация:
my ( $osvername, $major, $minor, $id ) = Win32::GetOSVersion();

Leon Timmermans · Accepted Answer · 2011-12-30 03:10:20

Sys:: Info:: OS выглядит как относительно чистое потенциальное решение, но в настоящее время, похоже, не поддерживает Mac. Оно не должно быть слишком много работы, чтобы добавить, что хотя.

Geoglyph · Accepted Answer · 2008-12-02 19:10:07

переменная $^O (это заглавная 'O', а не ноль) содержит имя операционной системы.

в зависимости от того, что вы хотите, он может или не может дать ответ, который вы хотите - на моей системе он дает "linux", не говоря, какой дистрибутив. Я не так уверен в том, что он говорит на Windows или MacOS.

brian d foy · Accepted Answer · 2018-03-09 16:47:15

посмотреть в источник File::Spec чтобы увидеть, как он загружает правильный делегат на основе операционной системы. :)

File::Spec имеет отдельный файл модуля Perl для каждой ОС. File::Spec::Win32,File::Spec::OS2 и т. д...

он проверяет операционную систему и загрузите соответствующий .pm файл во время выполнения на основе ОС.
# 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");

willasaywhat · Accepted Answer · 2008-12-02 19:06:04

здесь краткий справочник о том, как найти ОС локальная машина работает от Perl.

переменная $^O ($OSTYPE, если вы используете английский язык) содержит операционную систему, для которой был создан ваш двоичный файл perl.

Hawk · Accepted Answer · 2012-09-16 18:49:38

классический сценарий:
my $windows=($^O=~/Win/)?1:0;# Are we running on windows?

bcarroll · Accepted Answer · 2013-07-23 18:34:07

#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;

GC 13 · Accepted Answer · 2013-09-02 12:16:01

да использование модуля конфигурации может быть хорошей вещью. Еще одна возможность-получить информацию из/etc / *release files

например..

cat / etc / os-release
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"